Вывести и подсчитать сумму четных положительных чисел меньших 100. Написать на…

Question

82

Вывести и подсчитать сумму четных положительных чисел меньших 100. Написать на Паскале)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

tukinos · Accepted Answer

49

tukinos

30 января 2024

Var i,k: integer; begink: =0; writeln ('chetnue chisla <100'); for i: =100 downto 1 do beginif (i mod 2)=0) then beginwrite (',i); k: =k+i; end; end; writeln; writeln ('suma chetnux chisel',k); end.

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

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

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

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