Написать программу по Паскале. Вычислить сумму чисел от 19 до 51, если они делятся на 5.

1-й вариант:

Pascal (for)

var sum : integer;

i: integer;

begin

sum : = 0;

i : = 0;

for i:=19 to 51 do

begin

if i mod 5 = 0 then

sum : = sum + i;

end;

writeln (sum);

end.

2-й вариант:

Pascal

var sum : integer;

i: integer;

begin

sum : = 0;

i : = 19;

while (i < = 51) do

begin

if i mod 5 = 0 then

sum : = sum + i;

i : = i + 1;

end;

writeln (sum);

end.