Предмет: Информатика,
автор: Apolinaria201
Найти призведение целых числет от а до 20. Значение а вводится с клавиатуры: 1<=а<=20
Ответы
Автор ответа:
0
Program pr1;
var
a,i:integer;
p:int64;
begin
p:=1;
readln(a);
for i:=a to 20 do
p:=p*i;
writeln(p);
end.
var
a,i:integer;
p:int64;
begin
p:=1;
readln(a);
for i:=a to 20 do
p:=p*i;
writeln(p);
end.
Похожие вопросы
Предмет: Математика,
автор: andzelinadzoli290
Предмет: Геометрия,
автор: Hellogood
Предмет: Математика,
автор: maliksan8527
Предмет: Алгебра,
автор: ArtPop212Vip