Задание 5 Параграф 18 ГДЗ Семакин 9 класс (Информатика)
5. Даны три целых числа. Определите, у какого из них больше сумма цифр. Для подсчёта суммы цифр числа используйте процедуру. program Z_3_5;
Ниже вариант решения задания из учебника Семакин, Залогова 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(taskA,B,C > > task);
readln(a, b, c);
zz(a, s1); zz(b, s2); zz(c, s3);
max := s1;
if max
if max
if max = s1 then writeln(taskСумма цифр больше у числа task, a);
if max = s2 then writeln(taskСумма цифр больше у числа task, b);
if max = s3 then writeln(taskСумма цифр больше у числа task, c);
end.
