Составьте алгоритм нахождения суммы четных и нечетных чисел…

Question

Составьте алгоритм нахождения суммы четных и нечетных чисел от 1 до 100. На языкеПАСКАЛЬ

Answer 1

42

edisontom

20 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: