Нужно написать программу проверки знания даты основания Санкт-Петербурга.

Question

Информатика

Сенюра

19 мая, 08:09

Нужно написать программу проверки знания даты основания Санкт-Петербурга.

+5

Ответы (1)

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

Алина · Answer 1

var a, b, c, d:integer;

begin

writeln ('Напиши дату основания Санкт-Питербурга (день месяц и год) ') ;

writeln ('день') ;

read (a) ;

writeln ('месяц') ;

read (b) ;

writeln ('год') ;

read (c) ;

if (a=27) and (b=5) and (c=1703) then

writeln ('Молодец всё правильно')

else

writeln ('Ты где то допустил ошибку') ;

end.