i,s1,s2: integer; begin for i: =1 to 100 do begin if i mod 2=0 then s1: =s1+i else s2: =s2+i; end; writeln('сумма четных чисел: ',s1); write('сумма нечетных чисел: ',s2); end.
Ответ дал: Гость
1.
var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
Популярные вопросы