Икт Найти сумму чисел кратных 5 в интервале 1 до n

Question

Икт Найти сумму чисел кратных 5 в интервале 1 до n

Answer 1

41

cerber

08 марта 2023

Program gt; var a: array[1… 1000]of integer; i,s,n: integer; beginread (n); s: =0; for i: =1 to n dobeginread (a[i]); if (a[i] mod 5=0) then s: =s+a[i]; end; writeln (s); end.

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

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

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

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

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