даётся одно любое двухзначное число, нужно вывести на экpан 2 числа

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

Задать свой вопрос
2 ответа
Program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (agt;99) or (alt;10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.
A: integer;
begin
readln(a);
writeln(a - 1,' ',1);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт