Даны три натуральных числа.Выяснить в каком из них сумма цифр больше.(Определить функцию...

0 голосов
64 просмотров

Даны три натуральных числа.Выяснить в каком из них сумма цифр больше.(Определить функцию для расчёта количества цифр натурального числа)....напишите програаамму пожалуйста)


Информатика (28 баллов) | 64 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

 

в правильности написания функции приведения типов не уверенна.

(53.1k баллов)