Вопрос пользователя:
Даны три натуральных числа.Выяснить в каком из них сумма цифр больше.(Определить функцию для расчёта количества цифр натурального числа)….напишите програаамму пожалуйста)
Илюха отвечает:
var x1,x2,x3,s1,s2,s3:integer;
function SumOfNumber(num:integer):integer;
var s:string;
i:integer;
begin
s:=str(num);
for i:= 1 to length(s) do
SumOfNumber:= SumOfNumber+int(s[i]);
end;
BEGIN
read(x1,x2,x3);
s1:=SumOfNumber(x1);
s2:=SumOfNumber(x2);
s3:=SumOfNumber(x3);
if s1>s2 and s1>s3 then writeln(x1);
if s2>s1 and s2>s3 then writeln(x2);
if s3>s2 and s3>s1 then writeln(x3);
END.
в правильности написания функции приведения типов не уверенна.