Question

Написать программу, вычисляющую произведение цифр в сумме трех целых числа A,B И C.
Входной файл
В единственной строке файла содержатся три целых числа A,B И C, разделенных пробелами.
Выходной файл
Выходной файл содержит одно число - искомое произведение цифр.
Задачу решить на языке паскаль.

Answer 1

function ProdDig(n:longint):longint;
var
  p:longint;
begin
  p:=1;
  while n>0 do begin
    p:=p*(n mod 10);
    n:=n div 10
  end;
  ProdDig:=p
end;

var
  f:Text;
  a,b,c:longint;
begin
  Assign(f,'abc.txt');
  Reset(f);
  Readln(f,a,b,c);
  Close(f);
  Assign(f,'abcout.txt');
  Rewrite(f);
  Writeln(f,ProdDig(a+b+c));
  Close(f)
end.

Вариант без использования функции:
var
  f:Text;
  a,b,c,p,s:longint;
begin
  Assign(f,'abc.txt');
  Reset(f);
  Readln(f,a,b,c);
  Close(f);
  s:=a+b+c; p:=1;
  while s>0 do begin
    p:=p*(s mod 10);
    s:=s div 10
  end;
  Assign(f,'abcout.txt');
  Rewrite(f);
  Writeln(f,p);
  Close(f)
end.