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

1 ответ

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

DevAdmin

1700

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.

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

18 декабря 2022 17:02

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

Найти нужный

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

Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5 p:=1; i:=1; while i<=5 do begin p:=p*i; i:=i+1; end; p:=1; i:=1; while i<=... Пространственное разрешение монитора определяется как: а) количество строк на экране б) количество пикселей в строке в) размер видеопамяти г) произ... Какой из предложенных паролей лучше выбрать? IRJkf10 Ivan!999333 Дата рождения родственника... пожалуйста помогите перевести числа... 100011-двоичная система. а нужно перевести в десятичную, восьмеричную и 16-ую 101001011-двоичная. также перевес... напишите программу, которая в веденной последовательности целых чисел найдет и выведет моду этой последовательности...