Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Program z_1;var i, n, fact:longint;beginwriteln ('введите число от 1 до 10) ;read (n) ;fact:=1;if (n>=1) and (n=10) thenfor i:=1 ti n dofact:=fact*ielsewrite ('число не входить в диапозон от 1 до 10') ;end.