Question

Вводится 3 значное число из его цифр получить два двухзначных числа. Первое состоит из 1 и 3 исходного числа а второе из 2 и 3 Например 765- 75 и 65. ПАСКАЛЬ!!!!!!!!!

Answer 1

Ответ:

var

a, i : integer;

n : array[1..3] of integer;

begin

readln(a);

for i:=3 downto 1 do begin

n[i] := a mod 10;

a := a div 10;

end;

writeln(n[1], n[3], ' ', n[2], n[3]);

end.

Объяснение:

Сначала водим трехзначное число. Затем в цикле с помощью операции mod 10 получаем самую левую цифру и записываем в массив. Через a div 10 "отрезаем" полученную ранее цифру от исходного числа.

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

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет указанную задачу:

pascalCopy code
program SplitNumber;
var
  inputNumber, number1, number2, digit1, digit2, digit3: integer;
begin
  // Введите трехзначное число
  writeln('Введите трехзначное число: ');
  readln(inputNumber);
  
  // Разделим число на цифры
  digit1 := inputNumber div 100;
  digit2 := (inputNumber div 10) mod 10;
  digit3 := inputNumber mod 10;
  
  // Сформируем два двузначных числа
  number1 := digit1 * 10 + digit3;
  number2 := digit2 * 10 + digit3;
  
  // Выведем результат
  writeln('Первое двузначное число: ', number1);
  writeln('Второе двузначное число: ', number2);
end.

Вы можете ввести трехзначное число, и программа разделит его на два двузначных числа, как вы описали.