Предмет:
ИнформатикаАвтор:
shyanncisnerosvar a:array [1..1000] of integer;
fac,i,n: integer;
begin
readln(n);
fac:=1;
for i:=1 to n do begin
a[i]:=i;
end;
for i:=1 to n do begin
fac:=fac*a[i];
end;
writeln(fac);
end.
Автор:
emerson38Добавить свой ответ
помогите,пожалуйста.
с подробным решением,только правильно.
очень нужно.
Ответьте пожалуйста развернуто. 1) Как вы думаете, после принятия христианства человеческие жертвоприношения на Руси прекратились? 2)Как изменилась жизнь киевлян после их крещения?
В чем особенность рассказа "Толстый и тонкий"
Предмет:
ЛитератураАвтор:
jorge9l64Ответов:
Смотреть
Предмет:
ОбществознаниеАвтор:
raulsandovalОтветов:
Смотреть