Задача A. Год 2 Имя входного файла: стандартный доступ Имя выходного файла: стандартный вывод Лимит времени: 0,5 секунды Ограничение памяти: 256 мегабайт Дано натуральное число X <109. Не менее X, ближайшего к X, выполняется условие Найдите число Y, которое удовлетворяет. Создайте точное число «2021» из десятичных цифр числа Y. возможно (т.е. в нем только «0», только «1» и только два «2»). Входная информация Натуральное число. Исходящая информация Натуральное число. Система оценки Задача стоит Всего 14 тестов, все тесты, кроме приведенных в примере, оцениваются в Один тест (X <10000) ставится например стандартный доступ стандартный вывод
a) отрицание
(инверсия, логическое НЕ) обозначается ¬ (например, ¬А);
b) конъюкция
логическое умножение, логическое И) обозначается /\
(например, А /\ В) либо & (например, А & В);
c) дизъюнкция
(логическое сложение, логическое ИЛИ) обозначается \/
(например, А \/ В);
вдруг пригодится, есть еще такие знаки:
d) следование
(импликация) обозначается → (например, А → В);
e) тождество
обозначается ≡ (например, A ≡ B). Выражение A ≡ B истинно тогда и только тогда, когда значения A и B совпадают (либо они оба истинны, либо они оба ложны);
f) символ 1 используется для обозначения истины (истинного высказывания); символ 0 – для обозначения лжи (ложного высказывания).
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then begin k:=k+1; write(a[i]:6); end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.