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

2

Ответы и объяснения

2014-01-18T20:23:01+04:00
Uses crt;
var year:integer;
begin
read(year);
if (year>=2001) and (year<=2100) then
writeln('Yes.')
else
writeln('No.');
end.
2014-01-18T21:09:09+04:00
Uses crt;
var y: integer;
begin
clrscr;
read(y);
if (y>2000) and (y<=2100) then
writeln('True.')
else
writeln('False.');
end.