Паскаль авс сложить все четные числа и нечетные - вопрос №587971 от rufinafin 01.11.2021 19:59

Question

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

rufinafin · 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