Найти сумму чисел от 75 до 178 кратных 3

Задание:

Найти сумму чисел от 75 до 178 кратных 3

Решение:

var a: longint; i: integer; begina: =0; for i: =75 to 178 do if i mod 3=0 then inc (a,i); writeln (a); end.

Знаете другой ответ?

Отправить свой ответ