ТутРешу.Ру

Разработать программу, реализующую следующий функционал:…

Задание:

Разработать программу, реализующую следующий функционал: 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.




Знаете другой ответ?

Отправить свой ответ