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

(в программе паскаль)

Question

Информатика

Феодота

29 января, 13:56

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

(в программе паскаль)

+4

Ответы (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.

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

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

(в программе паскаль)