Определить сумму всех чисел кратных 3 из промежутка от 100 до 1000
Определить сумму всех чисел кратных 3 из промежутка от 100 до 1000
Гость
Ответ(ы) на вопрос:
Гостьvar sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
end.
Не нашли ответ?
Похожие вопросы