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

Question

Информатика

Милен

1 октября, 17:25

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

+3

Ответы (1)

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

Галька · Answer 1

Var

A:byte;

Begin

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

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

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

End.