Program N; var a: integer; begin write ('Введите целое число: '); readln(a); if a = 0 then writeln ('ноль') {если введённое число равно 0, то вывести соответствующее сообщение} else if a = 1 then {иначе если данное число равно 1, то вывести соответствующее сообщение} writeln ('один') else if a = 2 then writeln ('2') {иначе если данное число-2, то вывести соответствующее сообщение} else writeln ('неизвестное число'); {иначе число незивестное} readln end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку