Question

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

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

Спасибо!!!!)))

Answer 3

uses crt;
var y: integer;
begin
clrscr;
read(y);
if (y>2000) and (y<=2100) then
writeln('True.')
else
writeln('False.');
end.