27 апреля, 16:11

Написать программу для решения задачи: Сравнить первую и последнюю цифру натурального четырёхзначного числа n. На экране должен появиться запрос на ввод числа и результат решения задачи, например 1) вводится число 1475, выводится "первая цифра меньше последней: 12". 3) вводится число 7457, выводится "первая цифра равна последней: 7=7"

+3
Ответы (1)
  1. 27 апреля, 16:52
    0
    var n:integer;

    begin

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

    readln (n) ;

    if n div 1000 = n mod 10 then write ('Первая цифра равна последней: ', n div 1000,'=', n mod 10)

    else if n div 1000 > n mod 10 then write ('Первая цифра больше последней: ', n div 1000,'>', n mod 10)

    else write ('Первая цифра меньше последней: ', n div 1000,'<', n mod 10)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать программу для решения задачи: Сравнить первую и последнюю цифру натурального четырёхзначного числа n. На экране должен появиться ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы