Question

Дано целое четырехзначное число N.Если первая цифра числа больше, чем последняя, то увеличить число в 2 раза иначе увеличить число в 10.написать програму (паскаль)

Answer 1

Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
if A div 1000 > A mod 10 then A:=A*2
else A:=A*10;
WriteLn(A)
End.

Answer 2

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

program IncreaseNumber;
var
  N, firstDigit, lastDigit, result: integer;
begin
  write('Введите четырехзначное число N: ');
  readln(N);
  
  // Получаем первую и последнюю цифры числа N
  firstDigit := N div 1000;
  lastDigit := N mod 10;
  
  // Проверяем условие и увеличиваем число в 2 раза или в 10 раз
  if firstDigit > lastDigit then
    result := N * 2
  else
    result := N * 10;
  
  writeln('Результат: ', result);
end.

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

Пример работы программы: ``` Введите четырехзначное число N: 1234 Результат: 12340 ```

Введите четырехзначное число N: 9876
Результат: 19752

Введите четырехзначное число N: 5555
Результат: 55550

Исходный код программы на Паскале:

var
  N, firstDigit, lastDigit, result: integer;
begin
  write('Введите четырехзначное число N: ');
  readln(N);
  
  // Получаем первую и последнюю цифры числа N
  firstDigit := N div 1000;
  lastDigit := N mod 10;
  
  // Проверяем условие и увеличиваем число в 2 раза или в 10 раз
  if firstDigit > lastDigit then
    result := N * 2
  else
    result := N * 10;
  
  writeln('Результат: ', result);
end.

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