Ввести с клавиатуры три номера школ программа должна проверить есть ли среди них номер вашей школы Если есть то на экран выводится сообщение: номер школы есть иначе: номера школы нет

Question

Информатика

Кононыч

28 ноября, 16:28

Ввести с клавиатуры три номера школ программа должна проверить есть ли среди них номер вашей школы Если есть то на экран выводится сообщение: номер школы есть иначе: номера школы нет

+4

Ответы (1)

Знаете ответ?

Доброслава · Answer 1

Var

a, b, c, d:longint;

begin

readln (a) ; {Номер вашей школы}

readln (b, c, d) ; {№ школ}

if (a=b) or (c=a) or (d=a) then writeln (' номер школы есть') else writeln (' номера школы нет') ;

end.