Question

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

Answer 1

Program abc;
var a,b,ci: integer;
begin
writeln('Введите трехзначное число');
read(a);
b:=a mod 10;
a:= a div 10;
a:= a div 10;
if a>=b then c:=a-b else c:=b-a;
writeln(c);
end.

Answer 2

Конечно! Вот пример программы на Pascal, которая вычисляет разность первой и последней цифры в трехзначном числе:

pascalCopy code
program DifferenceOfDigits;

var
  number, firstDigit, lastDigit, difference: integer;

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

  // Проверка на трехзначность числа
  if (number < 100) or (number > 999) then
  begin
    writeln('Ошибка! Введенное число не является трехзначным.');
    exit;
  end;

  // Вычисление первой цифры
  firstDigit := number div 100;

  // Вычисление последней цифры
  lastDigit := number mod 10;

  // Вычисление разности первой и последней цифры
  difference := firstDigit - lastDigit;

  writeln('Первая цифра: ', firstDigit);
  writeln('Последняя цифра: ', lastDigit);
  writeln('Разность первой и последней цифры: ', difference);
end.

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