Задать вопрос
26 декабря, 06:42

Определить сумму всех чисел кратных 3 из промежутка от 100 до 1000

+1
Ответы (1)
  1. 26 декабря, 07:44
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Определить сумму всех чисел кратных 3 из промежутка от 100 до 1000 ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы