Question

Составить двузначные числа, состоящее из первой справа и предпоследней слева цифр восьмизначного числа В ПАСКАЛЕ

Answer 1

program divc;

uses

crt;

var

ch, lc, pc, pch, vch: Integer;

begin

writeln('Введите целое восьмизначное число:');

readln(ch);

if (((ch div 10000000) > 0) and ((ch div 10000000) < 10)) then

begin

pc := ch mod 10;

lc := (ch div 1000000) mod 10;

pch := lc * 10 + pc;

vch := pc * 10 + lc;

writeln('Первое число: ', pch, ' ; Второе число: ', vch, ' .');

end

else

WriteLn('Ошибка! Проверьте правильность введённых данных! Закрытие программы...');

readln;

end.

Answer 2

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

pascalCopy code
program ExtractDigits;

var
  eightDigitNumber: Int64;
  twoDigitNumber: Integer;
  digitArray: array[1..8] of Integer;
  i: Integer;

begin
  write('Введите восьмизначное число: ');
  readln(eightDigitNumber);

  for i := 8 downto 1 do
  begin
    digitArray[i] := eightDigitNumber mod 10;
    eightDigitNumber := eightDigitNumber div 10;
  end;

  twoDigitNumber := digitArray[7] * 10 + digitArray[2];

  writeln('Двузначное число: ', twoDigitNumber);
end.

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