Pascal. Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем.

Pascal. Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем.
Гость
Ответ(ы) на вопрос:
Гость
Var summ: integer; begin  for var i:=30 to 100 do  begin    if (i mod 3) = 0 then summ := summ + i;  end;  writeLn('сумма = ', summ);end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы