Найти произведение и сумму чисел больших 100 и меньших 200 и кратных 5 на языке программирования Pascal. Следующими способами: While, For, Repeat.

p - произведение

s - сумма

i - цикловая переменная

1. Цикл с предусловием While

var

p, s, i : longint; [или integer]

begin

p : = 1;

s : = 0;

i : = 101;

while i < 200 do

begin

if i mod 5 = 0 then

begin

p : = p * i;

s : = s + i;

end;

i : = i + 1; [или ing (i) ]

end;

writeln (p) ;

writeln (c)

end.

2. Цикл с постусловием Repeat

var

p, s, i : longint; [или integer]

begin

p : = 1;

s : = 0;

i : = 101;

repeat

if i mod 5 = 0 then

begin

p : = p * i;

s : = s + i;

end;

i : = i + 1; [или ing (i) ]

until i > = 200;

writeln (p) ;

writeln (c)

end.

3. Цикл For

var

p, s, i : longint; [или integer]

begin

p : = 1;

s : = 0;

for i : = 101 to 199 do

begin

if i mod 5 = 0 then

begin

p : = p * i;

s : = s + i;

end;

end;

writeln (p) ;

writeln (c)

end.