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

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

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

Найти нужный

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

Дан список из 5 элементов : [1, 2, 3, 4, 5]. Найдите сумму этого списка. Решите задачу двумя способами . Прошу помогите пожалуйста... Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2 Вывести полученное число... 1) Какой минимальный объём памяти (в Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 128×256 пикселов пр... Вид меню компьютера 11 букв... Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-5,5} и находит произведение ненулевых элементов.( фри Пас...