Задание 5 Параграф 18 ГДЗ Семакин 9 класс (Информатика)
Решение #1
Рассмотрим вариант решения задания из учебника Семакин, Залогова 9 класс, Просвещение:
5. Даны три целых числа. Определите, у какого из них больше сумма цифр. Для подсчёта суммы цифр числа используйте процедуру.
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.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
