Задать вопрос
15 сентября, 21:00

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

+1
Ответы (1)
  1. 15 сентября, 23:41
    0
    Var

    A:byte;

    Begin

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

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

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

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Вводится 2-х значное число определить сколько дестятков и едениц программа в паскале помогите ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы