Предмет: Информатика,
автор: MakePO
Написать программу вычисления произведения n вводимых с клавиатуры чисел
Ответы
Автор ответа:
0
program qq;
var n,i:byte;
s:integer;
begin
readln (n);
for i:= 2 to n do
s:=s*i;
write (s);
end.
var n,i:byte;
s:integer;
begin
readln (n);
for i:= 2 to n do
s:=s*i;
write (s);
end.
Похожие вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Литература,
автор: nikapokalynikaeva
Предмет: Геометрия,
автор: sns000
Предмет: Математика,
автор: Ivan7603
Предмет: Химия,
автор: aleksmarkelov2