Question

Составить алгоритм, который просит ввести двузначное число и определяет сумму и произведение его цифр, на Паскале

Answer 1

Ответ:

var a,sum,pr:integer;

begin

readln(a);

pr:=1;

while a>0 do begin

pr:=a mod 10 * pr;

sum:=a mod 10 + sum;

a:=a div 10;

end;

writeln(sum,'  ',pr);

end.

Объяснение: