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.
Ответ дал: Гость
"у семи нянек дитя без глаза." - 30 символов(" -2, . -1, пробел-5, букв-22) ⇒
Популярные вопросы