Предмет: Информатика,
автор: vova3560
помогите как это сделать в pascal ABC
Приложения:

Ответы
Автор ответа:
1
var c:integer;
begin
read(c);
write(2*c)
end.
Автор ответа:
1
Для 0 < n <= 9 (для n > 9 надо поменять тип данных переменной p)
var n,i,p:integer;
begin
p:=1;
read(n);
for i:=1 to n do p:=p*2*i;
write(p)
end.
Интересные вопросы
Предмет: Английский язык,
автор: Eldar3674
Предмет: Математика,
автор: dana180308
Предмет: Другие предметы,
автор: gusovkristian84
Предмет: Математика,
автор: kiskaaa0411
Предмет: Математика,
автор: Аноним