Даны номер дня и номер месяца текущего года (число – от 1 до 31, месяц – от 1 до 12). Определить правильность даты.
5-9 класс
|
var a,b:integer;
begin
readln(a,b);
if not (a in [1..31]) or not (b in [1..12]) then writeln('NOT CORRECT')
else writeln('CORRECT');
end.
Другие вопросы из категории
я написала программу вот эту и выдает ошибку :
ошибка времени выполнения: входная строка имела неверный формат, что это значит и как это исправить помогите пожалуйста очень срочно нужно
m:=a;
if b>m then m:=b;
if c>m then m:=c;
Читайте также
3) Даны числа от 1 до n. Найти сумму чисел кратных 5, но не кратных 7.
Помогите пожалуйста!!!)))))
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
зависимости от времени суток. Пример: Введите число от 0 до 24: 12 Добрый день!"
Найдите ее, зная номера оставшихся карточек. Входные данные:Дано число N, далее N-1 номер оставшихся карточек (различные числа от 1 до N).