begin writeln('Введите число:'); readln(a); // вводим число (можно больше трех знаков) while a <> 0 do // пока остались цифры в числе выполнять... begin s := s + (a mod 10); // Отбираем последнюю цифру числа и прибавляем к сумме a := a div 10; // Стираем последнюю цифру числа end; writeln('Сумма цифр = ', s) // выводим результат end.
13 votes Thanks 16
Aillianna
Классическое решение для поиска суммы числа.
Answers & Comments
Verified answer
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
Verified answer
var
a, s: integer; // целочисленный тип данных
begin
writeln('Введите число:');
readln(a); // вводим число (можно больше трех знаков)
while a <> 0 do // пока остались цифры в числе выполнять...
begin
s := s + (a mod 10); // Отбираем последнюю цифру числа и прибавляем к сумме
a := a div 10; // Стираем последнюю цифру числа
end;
writeln('Сумма цифр = ', s) // выводим результат
end.