Задание:
Составьте алгоритм нахождения суммы четных и нечетных чисел от 1 до 100. На языкеПАСКАЛЬ
Решение:
uses crt; var 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.
Знаете другой ответ?