Question

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

Answer 1

Ответ:

program z;

var i,s:integer;

begin

s:=0;

i:=3;

repeat

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

i:=i+1

until i>20;

write(s)

end.

Объяснение:

цикл с постусловием repeat until + неполный условный оператор if then для подсчёта суммы