Задать вопрос Регистрация
Помочь другим

  • Введите число  от 1 до 1000.Определить сколько  тысяч,сотен,десятков,единиц.Заранее спасибо 

     

Ответы 1

  • var a:integer;

    begin

    readln(a);

    writeln(a mod 10,' edinic');

    a:=a div 10;

    writeln(a mod 10,' desyatkov');

    a:=a div 10;

    writeln(a mod 10,' soten');

    a:=a div 10;

    writeln(a,' tisyach');

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years