Ответ:
Нужна программа? Pascal:
var a,i:integer;
begin
read(a);
i:=0;
while a>0 do begin
i:=i + a mod 10;
a:= a div 10;
end;
write(i);
end.
Объяснение:
Работает для всех натуральных чисел(не только для 4-ех значных)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Нужна программа? Pascal:
var a,i:integer;
begin
read(a);
i:=0;
while a>0 do begin
i:=i + a mod 10;
a:= a div 10;
end;
write(i);
end.
Объяснение:
Работает для всех натуральных чисел(не только для 4-ех значных)