БЛЛЛИНН помогите пожалуйста!!!!!Задача. вывести на экран произведение чисел в диапазоне от 5 до 20 с шагом 3. с использованием while.

1

Ответы и объяснения

Лучший Ответ!
2013-03-16T21:35:58+04:00

program pr;

var s,a:integer;

begin

s:=1;

a:=5;

while a<=20 do

begin

a:=a+3;

s:=s*a;

end;

writeln(s);

readln;

end.