Паскаль авс сложить все четные числа и нечетные вывести результат. Заранее спасибо. Счет идет от 1 до 10
Ответы
Ответ дал:
0
var a,b,i,r:integer;
begin
b:=0;
a:=0;
for i:=1 to 10 do begin
if (i mod 2 = 0) Then a:=a+i Else b:=b+i;
end;
writeln('сумма четных ',a);
writeln('сумма нечетных ',b);
end.
Ответ дал:
0
типа отдельно
Ответ дал:
0
или все сразу
Ответ дал:
0
как факториал
Ответ дал:
0
не факториал ошибся
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад