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