Задание:
Икт Найти сумму чисел кратных 5 в интервале 1 до n
Решение:
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.
Знаете другой ответ?