Есть ответ 👍

Паскаль! 1)написать программу ,которая проверяет,является ли число четным или нечетным 2)написать программу,которая проверяет,делится ли на 3 целое число введенное с клавиатуры 3)написать программу,которая определяет ,является билет "счастливым" или нет,билета 6-ти значное число .билет является счастливым,если если сумма первых двух чисел равна сумме трех последних цифр 5)написать программу,которая проверяет ,делится ли на шесть целое число,введенное с клавиатуры 6)написать программу ,определяющую делится ли число b на число a нацело. 7)дано целое 4-х значное число . поменять местами цифры,стоящие в этом числе в разные места,вывести на экран исходное и измененное число

115
381
Посмотреть ответы 2

Ответы на вопрос:


Program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 2 = 0             then                   writeln('число чётное')             else                   writeln('число не чётное');       readln; end. program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 3 = 0             then                   writeln('число делится на 3')             else                   writeln('число не делится на 3');       readln; end. program z; var       i: array[1..6] of byte;       x: byte; begin       for x: =1 to 6 do                   begin                   writeln('введите ', x,' цифру из 6 ');                   read(i[x]);             end;       if (i[1]+i[2]) = (i[4]+i[5]+i[6])             then                   writeln('билет счастливый')             else                   writeln('билет не счастливый');       readln; end.             program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 6 = 0             then                   writeln('число делится на 6')             else                   writeln('число не делится на 6');       readln; end. program z; var       a,b: integer; begin       writeln('введите число a'); readln(a);       writeln('введите число b'); readln(b);       if b mod a = 0             then writeln('число а делится нацело на число в')             else writeln('число а не делится нацело на число b');       readln; end.            
YNWA12
4,7(67 оценок)

если впереди и справа стена, закрасить клетку, повернуть влево и двигаться вперед.

если справа нет стены, повернуть направо и двигаться вперед.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS