Задание 5 Параграф 18 ГДЗ Семакин 9 класс (Информатика)

program Z_3_5;
var
a, b, c, s1, s2, s3, max: integer;
procedure zz(x: integer; var k: integer);
var
i, j: integer;
begin
i := 0;
while x > 0 do
begin
i := i + x mod 10;
x := x div 10
end;
k := i;
//writeln(k)
end;
begin
write(‘A,B,C > > ‘);
readln(a, b, c);
zz(a, s1); zz(b, s2); zz(c, s3);
max := s1;
if max < s2 then max := s2; if max < s3 then max := s3; if max = s1 then writeln('Сумма цифр больше у числа ', a); if max = s2 then writeln('Сумма цифр больше у числа ', b); if max = s3 then writeln('Сумма цифр больше у числа ', c); end.

Составим процедуру, которая находит сумму цифр целого числа. Для этого будем последовательно брать последнюю цифру числа с помощью $$x \bmod 10$$ и отбрасывать её с помощью $$x \div 10$$.

Затем вычислим суммы цифр для трёх данных чисел и сравним их. У какого числа сумма цифр окажется наибольшей, то и выводим.

program Z_3_5;
var
  a, b, c, s1, s2, s3, max: integer;

procedure zz(x: integer; var k: integer);
var
  i, j: integer;
begin
  i := 0;
  while x > 0 do
  begin
    i := i + x mod 10;
    x := x div 10
  end;
  k := i;
end;

begin
  write(‘A,B,C >> ‘);
  readln(a, b, c);
  zz(a, s1);
  zz(b, s2);
  zz(c, s3);
  max := s1;
  if max < s2 then max := s2;
  if max < s3 then max := s3;
  if max = s1 then writeln(‘Сумма цифр больше у числа ‘, a);
  if max = s2 then writeln(‘Сумма цифр больше у числа ‘, b);
  if max = s3 then writeln(‘Сумма цифр больше у числа ‘, c);
end.

Процедура zz вычисляет сумму цифр числа и записывает результат в переменную k. После этого программа находит максимальную из трёх сумм и выводит соответствующее число.

Ответ: программа определяет, у какого из трёх чисел сумма цифр наибольшая, с помощью процедуры подсчёта суммы цифр.