Паскаль розробіть програму, яка визначатиме добуток чисел від 1 до 30
Паскаль
розробіть програму, яка визначатиме добуток чисел від 1 до 30
Гость
Ответ(ы) на вопрос:
Гостьprogram al;
var p,i:integer;
begin
p:=1;
for i:= 1 to 30 do
p:=p*i;
writeln('p=',p);
readln;
end.
Не нашли ответ?
Похожие вопросы