Паскаль авс сложить все четные числа и нечетные - вопрос №587971 от Kiss456 04.05.2022 05:40

Question

Информатика: Паскаль авс сложить все четные числа и нечетные вывести результат. заранее . счет идет от 1 до 10​

Kiss456 · Answer

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....

Паскаль авс сложить все четные числа и нечетные вывести результат. заранее . счет идет от 1 до 10​

Паскаль авс сложить все четные числа и нечетные вывести результат. заранее . счет идет от 1 до 10