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

Question

Информатика

Тема

12 июля, 12:57

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

+4

Ответы (1)

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

Марьяныч · Answer 1

Var

A:byte;

Begin

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

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

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

End.