Дано четырехзначное число. Найти сумму первой и последней цифры и разность второй и третьей - Turbo Pascal

  1. Дано четырехзначное число. Найти сумму первой и последней цифры и разность второй и третьей.


textual

Код:

program algoritm;
 
var
  x: integer;
 
begin
  write('Введите четырехзначное положительное число: ');
  readln(x);
  if (x > 999) and (x <= 9999) then 
  begin
    writeln('Сумма первой и последней цифры: ', x div 1000 mod 10 + x mod 10);
    write('Разность второй и третьей: ', x div 100 mod 10 - x div 10 mod 10);
  end
  else 
    writeln('Было введено не четырехзначное число.');
end.


Похожие ответы
  1. Потерянное число Вам даны все целые число от 1 до N+1, кроме одного. Найдите отсутствующее число.Формат входных данных. Впервой строке входных данных записано целое число 1<= N<=100000.Во второй строке через пробел даны N целых чисел в диапазоне от 1 до N+1.Формат выходных данных Выведите ответ к задаче.

  1. Пожалуйста помогите! Дано натуральное число. Верно ли,что сумма цифр данного числа больше 10. Решить с помощью одномерного массива. Спасибо заранее!

  1. Есть число. Нужно удвоить его, а затем заменить 1 и 0 на A и B

  1. Помогите пожалуйста решить задачу,если можно с объяснением Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.

  1. Дано четырёхзначное число. Найти число, образованное обменом первой и второй пар цифр этого числа. Например, из числа 4566 получить 6645. Помогите Люди, не могу понять как это сделать

  1. 1) Трехзначное число в 5 раз больше суммы своих цифр. Найдите это число.  Комментарий администратора  одна тема одна задача Пыталась написать программы сама, но увы. Помогите, пожалуйста.

  1. Дано натуральное число верно ли что сумма его цифр меньше A? Верно ли что произведение его цифр больше B. Верно ли что это число k значное?составное условие и вложенный условный оператор не использовать.верно ли что его первая цифра превышает n?

  1. создавать программу счета, которая применяла, условного оператора Данное четырехзначное число заканчиваются ли четным числом ?

  1. Дано четырехзначное число. Определить входит ли в него цифра b.Помогите решить плиз.Заранее благодарю!