Написать программу вычисления произведения n вводимых с клавиатуры чисел
Написать программу вычисления произведения n вводимых с клавиатуры чисел
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
var n,i:byte;
s:integer;
begin
readln (n);
for i:= 2 to n do
s:=s*i;
write (s);
end.
Не нашли ответ?
Похожие вопросы