Написать программу, вычисляющую произведение цифр в сумме трех целых числа A,B И C. Входной файл В единственной строке файла содержатся три целых числа A,B И C, разделенных пробелами. Выходной файл Выходной файл содержит одно ч...
Написать программу, вычисляющую произведение цифр в сумме трех целых числа A,B И C.
Входной файл
В единственной строке файла содержатся три целых числа A,B И C, разделенных пробелами.
Выходной файл
Выходной файл содержит одно число - искомое произведение цифр.
Задачу решить на языке паскаль.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы