Задание:
Ввести с клавиатуры три номера школ программа должна проверить есть ли среди них номер вашей школы Если есть то на экран выводится сообщение: номер школыесть иначе: номера школы нет
Решение:
Vara,b,c,d: longint; beginreadln (a); {Номер вашей школы}readln (b,c,d); {№ школ}if (a=b) or (c=a) or (d=a) then writeln (' номер школы есть') else writeln ('номера школы нет'); end.
Знаете другой ответ?