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