Написать программу в Паскале. Подсчитать сумму четных целых чисел находящихся от…

Question

52

Написать программу в Паскале. Подсчитать сумму четных целых чисел находящихся от одного до значения введенногопользователем

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

ответить

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

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

borat · Accepted Answer

88

borat

08 марта 2023

Program summa; uses crt; var a, s, m, i: integer; beginclrscr; read (i); s: =0; while i<>0 do beginm: =a mod 10; s: =s+m; a: =a mod 10; a: =i+s; end; write ('s=',s); end.

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

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

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

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