Задать вопрос
13 июня, 04:01

Помогите Паскаль Дано трёхзначное число. Найти сумму и произведение его цифр.

+5
Ответы (1)
  1. 13 июня, 07:23
    0
    Var number, a, b, c:integer;

    begin

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

    readln (number) ;

    a:=number div 100;

    b: = (number div 10) mod 10;

    c:=number mod 10;

    writeln (a,' - Первая цифра числа') ;

    writeln (b,' - Вторая цифра числа') ;

    writeln (c,' - Третья цифра числа') ;

    writeln ('Сумма цифр числа = ', a+b+c) ;

    writeln ('Произведение цифр числа = ', a*b*c) ;

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