Pascal напишите все условия только с пробелами со скобками где написать условие проверки числа n, что оно является нечетным и кратным 3. написать условие проверки целого числа n, что оно 345 < =n< 543 или кратно 7. написать условие проверки числа n, что оно кратно 3 или заканчивается на 0. написать условие проверки целого числа n, что оно 231 < =n< 312 и не кратно 3. написать условие проверки числа n, что оно является нечетным и количество десятков в нем не больше 5. написать условие проверки натурального числа n, что оно двузначное и является палиндромом. написать условие проверки числа n, что оно оканчивается на 4 и количество сотен в нем больше 3. написать условие проверки натурального числа n, что оно двузначное и начинается на нечетную цифру. написать условие проверки числа n, что оно является четным и количество десятков в нем больше 5. написать условие проверки числа n, что оно трехзначное и начинается на 8. даны два целых числа а и b. написать условие для проверки того, что среди чисел а и b есть четное число. даны два целых числа а и b. написать условие для проверки того, что сумма чисел а и b больше 56 и меньше 145. даны два целых числа а и b. написать условие для проверки того, что оба числа а и b заканчиваются на 6. даны два целых числа а и b. написать условие для проверки того, что число а положительное и число b двузначное. даны два целых числа а и b. написать условие для проверки того, что десятки числа а меньше 5 или сотни числа b больше 3. даны два целых числа а и b. написать условие для проверки того, что число а кратно 3 или число b не кратно 5. даны два целых числа а и b. написать условие для проверки того, что число а положительное и число b неотрицательное. даны два целых числа а и b. написать условие для проверки того, что хотя бы одно из чисел а и b больше 100. даны два целых числа а и b. написать условие для проверки того, что остаток от деления на 8 числа а больше 4, а остаток от деления числа b на 12 меньше 5. даны два целых числа а и b. написать условие для проверки того, что среди чисел а и b нет четных.

  if (n mod 2 < > 0) and (n mod 3 = 0) then

  if ((n > = 345) and (n < 543)) or (n mod 7 = 0) then

  if (n mod 3 = 0) or (n mod 10 = 0) then

  if (n > = 231) and (n < 312) and (n mod 3 < > 0) then

  if (n mod 2 < > 0) and (n div 10 mod 10 < = 5) then

  if (n > 9) and (n < 100) and (n mod 10 = n div 10) then

  if (n mod 10 = 4) and (n div 100 mod 10 > 3) then

  if (n > 9) and (n < 100) and (n div 10 mod 2 < > 0) then

  if (n mod 2 = 0) and (n div 10 mod 10 > 5) then

  if (n > 99) and (n < 1000) and (n div 100 = 8) then

  if (a mod 2 = 0) or (b mod 2 = 0) then

  if (a + b > 56) and (a + b < 145) then

  if (a mod 10 = 6) and (b mod 10 = 6)

  if (a > 0) and (b > 9) and (b < 100) then  

  if (a div 10 mod 10 < 5) or (b div 100 mod 10 > 3) then  

  if (a mod 3 = 0) or (b mod 5 < > 0) then

  if (a > 0) and (b > = 0) then

  if (a > 100) or (b > 100) then  

  if (a mod 8 > 4) and (b mod 12 < 5) then  

  if (a mod 2 < > 0) and (b mod 2 < > 0) then

Ось програма на мові Python, яка реалізує запит перекладу слова англійською мовою та повідомлення про правильність відповіді:

# словник з перекладом слів англійською

dictionary = {'apple': 'яблуко', 'banana': 'банан', 'cat': 'кіт', 'dog': 'собака'}

# запитати користувача слово для перекладу

word = input("Введіть слово для перекладу англійською: ")

# перевірити чи є слово у словнику і вивести повідомлення

if word in dictionary:

print("Так, ви це знаєте")

else:

print("Невдала спроба")

Ця програма працює на принципі перевірки наявності слова у словнику. Якщо слово є у словнику, то програма виведе повідомлення "Так, ви це знаєте", якщо ні - "Невдала спроба". Варто зазначити, що словник в даному прикладі є дуже малим і в реальних програмах може бути значно більшимб

#include <iostream>

#include <fstream>

#include <cstdlib>

#include <ctime>

#include <vector>

#include <algorithm>

using namespace std;

// Функція для генерації випадкових чисел та запису їх у файл

void generateRandomNumbers(const string& filename)

{

ofstream file(filename, ios::binary);

if (!file)

{

cout << "Помилка при відкритті файлу." << endl;

return;

}

srand(static_cast<unsigned int>(time(nullptr)));

int count = rand() % 100 + 1; // Випадкова кількість чисел від 1 до 100

for (int i = 0; i < count; ++i)

{

int num = rand() % 201 - 100; // Випадкове число від -100 до 100

file.write(reinterpret_cast<const char*>(&num), sizeof(int));

}

file.close();

}

// Функція для підрахунку кількості чисел у файлі

int countNumbers(const string& filename)

{

ifstream file(filename, ios::binary);

if (!file)

{

cout << "Помилка при відкритті файлу." << endl;

return 0;

}

file.seekg(0, ios::end);

int fileSize = file.tellg(); // Розмір файлу в байтах

int numCount = fileSize / sizeof(int); // Кількість чисел

file.close();

return numCount;

}

// Функція для підрахунку суми чисел у файлі

int calculateSum(const string& filename)

{

ifstream file(filename, ios::binary);

if (!file)

{

cout << "Помилка при відкритті файлу." << endl;

return 0;

}

int sum = 0;

int num;

while (file.read(reinterpret_cast<char*>(&num), sizeof(int)))

{

sum += num;

}

file.close();

return sum;

}

// Функція для підрахунку середнього арифметичного чисел у файлі

double calculateAverage(const string& filename)

{

int count = countNumbers(filename);

int sum = calculateSum(filename);

if (count > 0)

{

return static_cast<double>(sum) / count;

}

return 0.0;

}

// Функція для виведення чисел більших за середнє арифметичне

void printNumbersAboveAverage(const string& filename)

{

double average = calculateAverage(filename);

ifstream file(filename, ios::binary);

if (!file)

{

cout << "Помилка при відкритті файлу." << endl;

return;

}

int num;

while (file.read(reinterpret_cast<char*>(&num), sizeof(int)))

{

if (num > average)

{

cout << num << " ";

}

}

file.close();

cout << endl;

}

// Функція для