Найти сумму чисел от 50 до 100, кратных 2 и 3. Турбо паскаль!

Задание:

Найти сумму чисел от 50 до 100, кратных 2 и 3. Турбо паскаль!

Решение:

var i, s: integer; begin s: =0; for i: =50 to 100 do if (i mod 2=0) and (i mod 3=0) then s: =s+i; writeln (s); readln; end.

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

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