Написание программ на языке паскаль. Найти сумму нат. чисел от 1 до 100, которые кратны 3 и 7.
Написание программ на языке паскаль. Найти сумму нат. чисел от 1 до 100, которые кратны 3 и 7.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
var i,sum : Integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 3 = 0) or (i mod 7 = 0) then sum:=sum + i;
writeln sum;
end;