Ответы
Ответ дал:
0
//PascalABC.NET 3.2 сборка 1318
Var
res,n,i,k:integer;
begin
res:=1;
writeln('N:');
readln(n);
for i:=1 to n do
begin
readln(k);
res:=res*k;
end;
writeln(res);
end.
Пример ввода:
3
1
2
3
Пример вывода:
6
Var
res,n,i,k:integer;
begin
res:=1;
writeln('N:');
readln(n);
for i:=1 to n do
begin
readln(k);
res:=res*k;
end;
writeln(res);
end.
Пример ввода:
3
1
2
3
Пример вывода:
6
Ответ дал:
0
не так, там еще кол-во чисел нужно
Ответ дал:
0
Добавь после writeln(res); строчку writeln(n);
Ответ дал:
0
Зачем Вам вывод количества введённых значений?
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад