Найти призведение целых числет от а до 20. значение а вводится с клавиатуры: 1< =а< =20

2507901178p0bodm 2507901178p0bodm    2   20.07.2019 22:50    0

Ответы
Юлик334 Юлик334  31.07.2020 17:25
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика