Даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит (в программе паскаль)
Даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит
(в программе паскаль)
Гость
Ответ(ы) на вопрос:
Гостьa: integer;
begin
readln(a);
writeln(a - 1,' ',1);
end.
Гость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.
Не нашли ответ?
Похожие вопросы