Вводится десятичное число.

Написать программу, которая вычесляет количество десятков и единиц в вводимом числе. Программа должна вывести на экран сообщение: "в числе десятков =, в числе единиц = ".

Question

Талина

8 июня, 04:53

+2

Ответы (1)

Знаете ответ на вопрос?

Тимоша · Answer 1

Var

x: integer;

begin

write ('Число: ') ;

readln (x) ;

writeln ('В числе десятков=', x div 10, '; единиц=', x mod 10) ;

end.