Племянников
4 год назад
Дано целое двузначное число х.Составьте программу вычисления суммы и произведения цифр числа х.Значение х любое.
ОТВЕТЫ
Sabrina
Oct 24, 2020
var
x:integer;
begin
Write('x='); Read(x);
x:=Abs(x); { вдруг число отрицательное }
Writeln('Сумма цифр числа равна ',x div 10 + x mod 10);
Writeln('Произведение цифр числа равно ',(x div 10)*(x mod 10))
end.
x=-73
Сумма цифр числа равна 10
Произведение цифр числа равно 21
x:integer;
begin
Write('x='); Read(x);
x:=Abs(x); { вдруг число отрицательное }
Writeln('Сумма цифр числа равна ',x div 10 + x mod 10);
Writeln('Произведение цифр числа равно ',(x div 10)*(x mod 10))
end.
x=-73
Сумма цифр числа равна 10
Произведение цифр числа равно 21
401
Смежные вопросы: