Задать вопрос
31 декабря, 09:26

Программа Паскаль.

Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите 0

+3
Ответы (1)
  1. 31 декабря, 10:06
    0
    Var x: integer;

    begin

    write ('Введите трехзначное число: ') ;

    readln (x) ;

    if (x 1000) then writeln ('Ошибка! Число не трехзначное.')

    else

    if (x div 100) = (x mod 100) then writeln ('1')

    else writeln ('0') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Программа Паскаль. Дано трехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Перевести в двоичную систему счисления из десятичной 122 (десятичная) - 2 с/сч 41 (десятичная) - 2 с/сч 56 (десятичная) - 2 с/сч 105 (десятичная) - 2 с/сч 87 (десятичная) - 2 с/сч
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Помгите! Программа Паскаль Вопрос 1. Функция служебного слова Var. Вопрос 2. С какими числами можно работать в программе Паскаль? Вопрос 3. Оператор ввода. Как он записывается в Паскаль? Вопрос 4. Функция служебного слова Const. Вопрос 5.
Ответы (1)
В программе Паскаль Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1, иначе выведите 0.
Ответы (1)
Паскаль. 1) Дано трехзначное число, нужно найти число, полученное при прочтении его цифр справа налево. 2) Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число. 3) Дано трехзначное число.
Ответы (1)