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

Question

Филюха

1 июня, 01:41

+1

Ответы (2)

Знаете ответ?

Радован · Answer 1

Uses crt;

var y: integer;

begin

clrscr;

read (y) ;

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

writeln ('True.')

else

writeln ('False.') ;

end.

Володюка · Answer 2

Uses crt;

var year:integer;

begin

read (year) ;

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

writeln ('Yes.')

else

writeln ('No.') ;

end.