tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составте программу определяющую
Составте программу определяющую относится ли введённый с клавиатуры год к 21 веку(21век начинается с 2001 года и заканчивается в 2100 году)
otegenovaaina2
2 30.05.2019 08:40
4
Ответы
Kostya200601
30.06.2020 08:27
Uses crt;
var year:integer;
begin
read(year);
if (year>=2001) and (year<=2100) then
writeln('Yes.')
else
writeln('No.');
end.
ПОКАЗАТЬ ОТВЕТЫ
liza1449
30.06.2020 08:27
Uses crt;
var y: integer;
begin
clrscr;
read(y);
if (y>2000) and (y<=2100) then
writeln('True.')
else
writeln('False.');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
мопс22
20.04.2020 20:10
Какие есть инструменты распознавания текстов и компьютерного перевода...
марина1930
08.07.2019 02:50
Для ввода программ и данных в эвм первого поколения использовались магнитные барабаны оптические диски магнитные диски перфокарты...
maksgrant86
08.07.2019 02:50
Пешеход подошел к светофору. загорелся зеленый свет. какое количество информации получил пешеход?...
Beliya1
08.07.2019 02:50
Как в паскаль abc в модуле crt изменять размер текста?...
Fatima0952006
08.05.2020 19:15
Как называется инструмент, позволяющий повторить все параметры форматирования какого-либо абзаца для других абзацев?...
roversun7
12.12.2020 23:15
Не включается беспроводная сеть Wifi после переустановки Windows...
kydyrali610
26.08.2019 05:20
Дан целочисленный массив из 40 элементов. элементы массива могут принимать целые значения от 0 до 10000 включительно. опишите алгоритм, позволяющий найти и вывести максимальное...
Artur2021
26.08.2019 05:20
Написать программу pascal abc. написать программу которая по определенным числам a и b и введеному действию выполняет вычисление. программу надо сделать с оператором case...
qawsed123
25.06.2019 12:50
Поставь знаки больше , меньше или =. 30 дм+700 мм 370 см 630 м+90 дм 639000 см 4 км+5000 4500 м 200 м+80000 мм 20800 см заранее !...
Ŕöömää999
25.06.2019 12:50
Возраст мишиного прадедушки можно узнать, если из наибольшего двузначного числа вычесть 90, результат увеличить в 3 раза и прибавить 73....
Популярные вопросы
Маса спокою поїзду 3000 т. На скільки вона змінюється при збільшенні швидкості...
1
яке видовжиння матиме пружина шкільного динамомнтра що має пружність 40...
3
Напишите уравнения реакций для следующей цепочки превращений C CO2 H2CO3...
1
Fruit grow сөйлем тез детіп...
3
Выполните действия: е) 7 5/9 - 2 8/9 ж) 7 - 3/8...
1
Каким должен быть заголовок таблицы? 1.Максимально длинным, наиболее подробно...
2
Практическая номер 5 по географии...
3
Дана U = 220 B i = 4 а найти R...
3
Мұртты обалар не үшін салынды әңгіме жазу 4-5 сөйлем...
3
-тапсырма. Мәтінді оқы. Мәтінге тақырып қой. Хан ием, маңғұл түмендері...
2
var year:integer;
begin
read(year);
if (year>=2001) and (year<=2100) then
writeln('Yes.')
else
writeln('No.');
end.
var y: integer;
begin
clrscr;
read(y);
if (y>2000) and (y<=2100) then
writeln('True.')
else
writeln('False.');
end.