Var
A,b,c:integer;
Begin
b:=-1;
c:=0;
Repeat
ReadLn(A);
b:=b+1;
if (A mod 2 <> 0)and(A mod 3 = 0) then c:=c+1
Until A = 0;
WriteLn('Длина последовательности: ',b);
WriteLn('Кол-ко нечётных чисел, кратных трём: ',c);
End.
Выходными данными компьютера является чек и сдача(если она требуется).
Арифметические действия: из количество денег, что дал покупатель нужно отнять сумму всех купленных товаров и таким образом найти нужную сдачу.
Например: входные данные: кол-во введенных денег = 100 руб.
сумма цены товаров = (10 руб. + 21 руб + 37.21 руб.)
100 руб. - (10 руб. + 21 руб + 37.21 руб.) = 100 руб. - 68,21 руб. = 31,79.
В данном случае в чеке будет указана введенное количество денег и сумма всех купленных товаров. Сдача в этом примере будет = 31,79.
*кол-во это количество.
Program z;
var n,p,i:integer;
begin
write('n=');
readln(n);
p:=1;
if n mod 2=1 then i:=1 else i:=2;
while i<=n do
begin
p:=p*i;
i:=i+2;
end;
writeln(n,'!!=',p);
end.
Насколько я понял, тут даже var не нужен, ибо в задании указано вывести сколько км пробежит за 7 дней.Код:
begin
writeln(40+3*6,' km probejit zayac za 7 dnei');
readln;
end;
Дискретные сигналы:
- энергетические уровни атома
- сигналы светофора
- символы, слова
Непрерывные сигналы:
- звуковая волна
- диаграмма изменения влажности, напряжения и некоторых других физических величин