С клавиатуры вводится последовательность чисел необходимо их сумировать пока не будет введено число кратное 2.Результат вывести на экран. ЗАРАНЕЕ СПАСИБО
Ответы
Ответ дал:
0
Program v;
Var a,b:integer;
BEGIN
a:=1;
While (a mod 2 <> 0) do begin
readln (a);
if (a mod 2 <> 0) then
b:=b+a;
end;
writeln (b);
END.
Var a,b:integer;
BEGIN
a:=1;
While (a mod 2 <> 0) do begin
readln (a);
if (a mod 2 <> 0) then
b:=b+a;
end;
writeln (b);
END.
Ответ дал:
0
мы еще repeat и until не проходили
Ответ дал:
0
А что вы проходили?
Ответ дал:
0
While - do проходили?
Ответ дал:
0
да прошли
Ответ дал:
0
отлично
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад