Решить программу с помощью циклов while и repeat.

Посчитать сумму чисел больше 20, но меньше 100, кратное 3.

Var summ, i: integer;

begin

summ:=0;

for i:=21 to 99 do if (i mod 3) = 0 then summ:=summ+i;

write ('сумма чисел кратных трём = ', summ) ;

end.

var summ, i: integer;

begin

i:=21;

sum:=0;

while (i<100) do begin

if (i mod 3) = 0 then summ:=summ+i;

i:=i+1;

end;

write ('сумма чисел кратных трём = ', summ) ;

end.

var summ, i: integer;

begin

i:=21;

summ:=0;

repeat

if (i mod 3) = 0 then summ:=summ+i;

i:=i+1;

until (i>=100) ;

write ('сумма чисел кратных трём = ', summ) ;

end.