Составте программу определяющую относится ли введённый с клавиатуры год к 21 веку (21 век начинается с 2001 года и заканчивается в 2100 году)

Question

Донат

11 ноября, 15:05

+4

Ответы (2)

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

Митюша · Answer 1

Uses crt;

var year:integer;

begin

read (year) ;

if (year>=2001) and (year<=2100) then

writeln ('Yes.')

else

writeln ('No.') ;

end.

Линя · Answer 2

Uses crt;

var y: integer;

begin

clrscr;

read (y) ;

if (y>2000) and (y<=2100) then

writeln ('True.')

else

writeln ('False.') ;

end.