Составить программу, которая запрашивает год начала Великой Отечественной войны и анализирует введенное число (верно или неверно)

Question

Информатика

Велислава

6 мая, 01:41

Составить программу, которая запрашивает год начала Великой Отечественной войны и анализирует введенное число (верно или неверно)

+3

Ответы (1)

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

Нуся · Answer 1

Var A:integer;

Begin

WriteLn ('Введите год начала Великой Отечественной войны:') ;

ReadLn (A) ;

if A = 1941 then WriteLn ('Верно')

else WriteLn ('Неверно')

End.