Question

составьте программу которая подсчитывает сумму и произведение цифр введеного трехзначного числа
составить алгоритм в паскале!

Answer 1

Ответ:

program z;

var a,c1,c2,c3,s,p:integer;

begin

read(a);

c1:=a div 100;

c2:=a div 10 mod 10;

c3:=a mod 10;

s:=c1+c2+c3;

p:=c1*c2*c3;

write(s,' ',p)

end.