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

1 ответ

Посмотреть ответы

DevAdmin

1720

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.

Хороший ответ

16 декабря 2022 23:07

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Каждый объект, зарегистрированный в информационной системе, получает уникальный код из 9 символов, каждый из которых может быть одной из 10 первых лат... Что вы можете сказать о массиве, сформированном следующим образом? а) for i :=1 to 10 do a[i] :=random(101)-50 б) for i :=1 to 20 do a[i] := i в) fo... На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них записаны фрагменты одного IP-адреса. Криминалисты обозна... Боря, Витя. Гриша и Егор встретились на Всеросийской олимпиаде по информатикею Ребята приехали из разных городов: Москвы, Омска, Санкт-Петербурга и Кр... Зарплата менеджера становить 200$ + відсоток від продажу: продаж до 500$ – 3%, 500 –1000$ – 5%, понад 1000$ – 8%. Користувач вводить з клавіатури ріве...