Question

Написать программу: с клавиатуры вводится четырехзначное целое число. Вывести на экран сообщение о соотношении суммы крайних цифр и суммы средних цифр этого числа (меньше, больше или равны).

Answer 1

Var a,a1,a2,a3,a4,s1,s2:integer;
begin
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
s1:=a1+a4; s2:=a2+a3;
if s1>s2 then writeln(s1,' > ',s2)
 else if s1<s2 then writeln(s1,' < ',s2)
  else writeln(s1,' = ',s2);
end.

Пример:
4382
6 < 11

Answer 2

Программа для сравнения суммы крайних и средних цифр четырехзначного числа

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

1. Запросить у пользователя ввод четырехзначного целого числа с клавиатуры. 2. Разделить это число на отдельные цифры. 3. Вычислить сумму крайних цифр (первой и последней) и сумму средних цифр (второй и третьей). 4. Сравнить полученные суммы и вывести соответствующее сообщение на экран.

Вот пример программы на языке Pascal, который выполняет описанные шаги:

program SumComparison;

var
  number, firstDigit, lastDigit, middleDigitsSum, extremesSum: integer;

begin
  // Запрос ввода числа
  write('Введите четырехзначное целое число: ');
  readln(number);

// Вычисление крайних цифр и суммы средних цифр
  firstDigit := number div 1000;
  lastDigit := number mod 10;
  middleDigitsSum := (number div 10) mod 100;
  extremesSum := firstDigit + lastDigit;

// Сравнение сумм и вывод сообщения
  if extremesSum < middleDigitsSum then
    writeln('Сумма крайних цифр меньше суммы средних цифр.')
  else if extremesSum > middleDigitsSum then
    writeln('Сумма крайних цифр больше суммы средних цифр.')
  else
    writeln('Сумма крайних цифр равна сумме средних цифр.');

readln;
end.

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

Примечание: В данном примере использован язык программирования Pascal. Вы можете использовать другой язык программирования по своему выбору, принцип работы программы будет аналогичным.

Источники: -(https://www.visualstudio.com)