Найти призведение целых числет от а до 20. значение - вопрос №521721620 от Sem5000 14.09.2021 18:17

Question

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

Sem5000 · Answer

Program pr1;vara,i:integer;p:int64;beginp:=1;readln(a);for i:=a to 20 dop:=p*i;writeln(p);end....

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