Question

Подсчитать сумму целых чисел диапазона [3;20] кратных 5. паскаль​​

Answer 1

Ответ:

program summa;

var i, summ: integer;

begin

 summ:=0;

 for i:=3 to 20 do

   if i mod 5= 0 then summ:=summ+i;

 write (summ)

end.