Задание:
РЕШИТЕ ПОЖАЛУЙCТА! ОЧЕНЬ СРОЧНО! К 6-ти ЧАСОМ ВЕЧЕРА! Составьте программу, проверяющую истинность утверждения «введенный с клавиатуры год относится к 21 веку». Оформите вывод данных на экран, используя возможности модуля CRT.
Решение:
Program Ololosha2013; uses crt; var year: integer; begin writeln ('*Alphaues is thinking… *'); writeln ('*OK*'); writeln (); writeln ('Введите год: '); readln (year); if (year>2000) and (year<2101) then writeln ('введенный год относится к 21 веку') else writeln ('введенный год НЕ относится к 21 веку'); end.
Знаете другой ответ?