bayramovarzu
17.03.2020 12:29

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
kuryachelenaozmgnz
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота