Написати програму на Турбо Паскаль,для обчислення суми чисел кратних трьом,які не більше 100.
Написати програму на Турбо Паскаль,для обчислення суми чисел кратних трьом,які не більше 100.
Гость
Ответ(ы) на вопрос:
Гостьvar s,i:integer;
begin
for i:=3 to 100 do
if i mod 3=0 then s:=s+i;
write('Сумма: ',s);
readln
end.
Не нашли ответ?
Похожие вопросы