Question

Даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит (в программе паскаль)

Answer 1

Program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.

Answer 2

A: integer;
begin
readln(a);
writeln(a - 1,' ',1);
end.

Answer 3

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

program SplitNumber;

var
  number, tens, ones: integer;

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

// Разбиваем число на десятки и единицы
  tens := number div 10;
  ones := number mod 10;

// Выводим десятки и единицы на экран
  writeln('Десятки: ', tens);
  writeln('Единицы: ', ones);

// Ждем нажатия клавиши перед закрытием окна
  readln;
end.

Эта программа запрашивает у пользователя двузначное число, затем разделяет его на десятки и единицы с помощью операций деления нацело (`div`) и взятия остатка от деления (`mod`). Полученные цифры затем выводятся на экран.