Решите: Дано целое трёхзначное число х. Составьте программу вычисления суммы и произведения цифр трёхзначного

Question

Информатика: Решите: Дано целое трёхзначное число х. Составьте программу вычисления суммы и произведения цифр трёхзначного числа х. Значение х ввести с клавиатуры. Язык программирования Паскаль

euno · Answer

vars,pr,x : integer;beginreadln(x);x := abs(x);s:= 0;pr:= 1;while x 0 dobegins := s + x mod 10;pr := pr * x mod 10;x:= x div 10;end;writeln( S = ,s);writeln( PR = ,pr);end....

Популярные вопросы