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

Формулировка задачи:

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

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.778 из 5


СДЕЛАЙТЕ РЕПОСТ