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

0 голосов
186 просмотров

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


Информатика (473 баллов) | 186 просмотров
Дан 1 ответ
0 голосов

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.

(662 баллов)
0

переносы строки сбились правда)

0

и прошу прощения, у нас ведь строго больше 30, значит строка for var i:=30 to 100 do begin заменяется на for var i:=31 to 100 do begin