Задать вопрос
26 августа, 03:51

Дано трёхзначное число. Найти:

а) число единиц в нем;

Б) число десятков в нем;

в) сумму его цифр;

г) произведение его цифр

+4
Ответы (1)
  1. 26 августа, 04:46
    0
    Var a:integer;

    begin

    write ('Введите трёхзначное число: ') ;

    readln (a) ;

    writeln ('Число единиц в числе ', a, ' равно: ', abs (a mod 10)) ;

    writeln ('Число десятков в числе ', a, ' равно: ', abs (a mod 100 div 10)) ;

    writeln ('Сумма цифр числа ', a, ' равна: ', abs (a div 100) + abs (a mod 100

    div 10) + abs (a mod 10)) ;

    writeln ('Произведение цифр числа ', a, ' равно: ', abs (a div 100) * abs (a

    mod 100 div 10) * abs (a mod 10))

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано трёхзначное число. Найти: а) число единиц в нем; Б) число десятков в нем; в) сумму его цифр; г) произведение его цифр ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы