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

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.

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

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

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

Найти нужный

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

Некоторое растровое изображение было сохранено в файле р1.bmp как 24 разрядный рисунок.Во сколько раз будет меньше информационный объём файла р2.bmp,е... Что вы можете сказать о массиве, сформированном следующим образом? а) for i :=1 to 10 do a[i] :=random(101)-50 б) for i :=1 to 20 do a[i] := i в) fo... В данном фрагменте программы program error; begin SuMmA:=25-14; end. ошибкой является: a. некорректное имя переменной b. не определенное имя пер... Укажите основные возможности программы PowerPoint: 1) Выполнение расчетов 2) Создание и задание порядка следования слайдов презентации 3)Сохранени... Дан текст, определите его информационный объём, если вес одного файла составляет 2 бита. Ответ запишите в байтах и расписать какими формулами решали....