Задание:
Разработать программу, реализующую следующий функционал: 1,1. Программа запрашивает у пользователя число от 1 до 10 (n). 1,2. Программапроверяет введенное число на правильность: больше либо равно 1 и меньше либо равно 10.
Решение:
Program z_1; var i,n,fact: longint; begin writeln ('введите число от 1 до 10); read (n); fact: =1; if (n>=1) and (n <= 10) then for i: =1 ti n do fact: =fact*i else write ('число не входить в диапозон от 1 до 10'); end.
Знаете другой ответ?