Напишите процедуру Паскаль по этой программе: var
n, i, s: integer;
begin
read(n);
s := 1;
for i := 1 to n do
s := s * i;
writeln(s);
end.
nikitabordkin
3
07.03.2021 14:06
0
Другие вопросы по теме Информатика
nikita030303b
14.01.2021 12:21
зулик3
24.04.2020 12:59
nadya8903
11.06.2020 14:43
typoiya
11.06.2020 14:39
sema60
10.06.2020 14:37
nastyakarina112
10.06.2020 14:37
ndehost
10.06.2020 14:35
CherryGirll
27.04.2020 13:18
ModerBlet
03.08.2019 15:20
Популярные вопросы
- Раскройте скобки: m+(a-k-b)...
1 - 1. Назовите первые государства в Китае. Почему они пришли в упадок и исчезли...
2 - решить вопрос 15 , можете расписать...
3 - 2. Сауле и Араи занимаются изготовлением ювелирных изделий. Сделали один...
1 - -0,2.-9 + 3 на этот пример нету ответа...
3 - Найдите обл опред функции подробно...
3 - Найдите угол В ,если в треугольнике А=30°,АС2см,Вс=из под корня 2см...
3 - Каким образом удалось справиться гению с ситуацией? СТАРЫЙ ГЕНИЙ...
1 - Волшебная карета, которая увезла Шрека и его принцессу в свадебное путешествие,...
2 - Мәтіндегі жетістіктерді тауып, қай жақта тұрғанымен айтындар...
3
не знаю правильно ли я поняла, но
var n, i:integer;
procedure test(n, i: integer; var s:integer);
begin
s:=1
for i:=1 to n do
s:= s*i;
end;
begin
read(n);
test(n, i);
writeln(s);
end;