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

Компьютер спрашивает: Любите ли вы мороженное? При вариантах ответа: да, да, да выводит на экран: Ну что ж поедим вместе! в других случаях выводит: Вот и хорошо! Отдай свою порцию мне.

Question

Литература

Инюша

6 марта, 09:21

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

Компьютер спрашивает: Любите ли вы мороженное? При вариантах ответа: да, да, да выводит на экран: Ну что ж поедим вместе! в других случаях выводит: Вот и хорошо! Отдай свою порцию мне.

+1

Ответы (1)

Знаете ответ на вопрос?

Ромуля · Answer 1

Про школы я уже тебе сделал

про мороженое:

var

s1, s2, s3, s4:longint;

begin

writeln (' Любите ли вы мороженное?') ;

readln (s1, s2, s3) ;

s4:='да';

if (s1=s2) and (s2=s3) and (s3=s4) then writeln (' Ну что ж поедим вместе!') else writeln (' Вот и хорошо! Отдай свою порцию мне.') ;

end.