Вводится 2-х значное число определить сколько дестятков и едениц программа в паскале помогите

Question

Информатика

Марьяха

25 декабря, 18:27

Вводится 2-х значное число определить сколько дестятков и едениц программа в паскале помогите

+2

Ответы (1)

Знаете ответ?

Вена · Answer 1

Var

A:byte;

Begin

Write ('Введите двузначное число: ') ; ReadLn (A) ;

WriteLn ('Количество десятков в нём: ', A div 10) ;

WriteLn ('Количество единиц в нём: ', A mod 10) ;

End.