Решить задачу в Паскале авс.
Пользователь вводит натуральное число. Программа находит первое следующее за ним число с той же суммой цифр.
Ответы
Ответ дал:
0
var a,b,s1,s2:integer;
function sum(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write('a = ');
readln(a);
s1:=sum(a);
writeln(' s1 = ',s1);
b:=a;
while s1<>s2 do
begin
b:=b+1;
s2:=sum(b);
end;
writeln('b = ',b,' s2 = ',s2);
end.
Пример:
a = 153
s1 = 9
b = 162 s2 = 9
function sum(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write('a = ');
readln(a);
s1:=sum(a);
writeln(' s1 = ',s1);
b:=a;
while s1<>s2 do
begin
b:=b+1;
s2:=sum(b);
end;
writeln('b = ',b,' s2 = ',s2);
end.
Пример:
a = 153
s1 = 9
b = 162 s2 = 9
Вас заинтересует
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад