//pascalabc.net 3.4.2
begin
var num : = readinteger();
if (num in [1000..9999]) then
begin
for var i : = 1 to 4 do
if (num.tostring[i].todigit mod 2 < > 0) then
begin
write('нет');
exit;
end;
write('да');
end
else
write(' наверное число');
end.
Форма Access – це об’єкт бази даних, за до якого можна створити інтерфейс користувача для програми бази даних. "Зв’язана" форма – це форма, безпосередньо підключена до джерела даних, як-от таблиці чи запиту, за до якої можна вводити, редагувати або відображати дані з цього джерела даних. Також можна створити "вільну" форму, яка не веде прямо до джерела даних, але яка все одно містить кнопки, підписи або інші елементи керування, необхідні для роботи з програмою.
У цій статті мова йде головним чином про зв’язані форми. За до зв’язаних форм можна керувати доступом до даних, наприклад, які поля або рядки даних відображати. Скажімо, деяким користувачам знадобляться лише кілька полів у таблиці з багатьма полями. Якщо надати цим користувачам форму, що містить лише потрібні їм поля, їм буде ше використовувати базу даних. Ви також можете додати до форми кнопки та інші функції, щоб автоматизувати дії, які виконуються часто.
Форма Access – це об’єкт бази даних, за до якого можна створити інтерфейс користувача для програми бази даних. "Зв’язана" форма – це форма, безпосередньо підключена до джерела даних, як-от таблиці чи запиту, за до якої можна вводити, редагувати або відображати дані з цього джерела даних. Також можна створити "вільну" форму, яка не веде прямо до джерела даних, але яка все одно містить кнопки, підписи або інші елементи керування, необхідні для роботи з програмою.
У цій статті мова йде головним чином про зв’язані форми. За до зв’язаних форм можна керувати доступом до даних, наприклад, які поля або рядки даних відображати. Скажімо, деяким користувачам знадобляться лише кілька полів у таблиці з багатьма полями. Якщо надати цим користувачам форму, що містить лише потрібні їм поля, їм буде ше використовувати базу даних. Ви також можете додати до форми кнопки та інші функції, щоб автоматизувати дії, які виконуються часто.
Поделитесь своими знаниями, ответьте на вопрос:
Склавиатуры вводится 4xзначное число нужно вывести ответ "да", если все его цифры нечетные, и ответ "нет" в остальных случаях. если введено не 4хзначное число, то должно быть введено сообщение " наверное число". напишите программу,
вроде так:
var n, a, b , c, d: integer;
begin
readln(n);
a : = n div 1000;
b : = n div 100 mod 10;
c : = n mod 100 div 10;
d : = n mod 100 mod 10;
if a > = 10 then
writeln('не подходит')
else
if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) and (d mod 2 = 0) then
writeln('no')
else
writeln('yes')
end.