Question

за это даю 53 балла!!!
сделайте программу вычисляющую сумму и произведение цифр шестизначного числа. Программа вводит одно число, выводит два числа в разных строках: в первой сумма цифр, во второй произведение. Ответ предоставить в виде файла с расширением pas, который содержит текст программы.

Answer 1

program gt;
var s,p,n,q:integer;
begin
readln(n);
s:=0;p:=1;
while(n>0)do
begin
q:=n mod 10;
s:=s+q;
p:=p*q;
n:=n div 10;
end;
writeln(s,' ',p);
end.
Сохрани программу в расширении pas и всё