Даны два натуральных числа. Выяснить в каком из них сумма цифр
больше.Написать программу в паскале абс,использую функцию.
больше.Написать программу в паскале абс,использую функцию.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
s : integer;
begin
s := 0;
while (a > 0) do
begin
s := s + a mod 10;
a := a div 10;
end;
summ := s;
end;
var
a, b : integer;
begin
read (a, b);
a := summ (a);
b := summ (b);
if a > b then write ('in 1') else if b > a then write ('in 2') else write ('eq');
end.