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

Question

Ефросим

14 октября, 03:18

+5

Ответы (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.