profile
Опубликовано 6 лет назад по предмету Информатика от Аккаунт удален

Составьте ПОЖАЛУЙСТА программу выделения цифр из трехзначного числа. В ПАСКАЛЕ.

  1. Ответ
    Ответ дан MrMiner1

    Program n_1;

    var a, b, c, d:integer;

    begin

       readln(a);

       b:=a mod 10;

       c:=a div 10 mod 10;

       d:= a div 100 mod 10;

       writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');

    end.

    1. Ответ
      Ответ дан MrMiner1
      имелось ввиду данное?
Самые новые вопросы