Автор Елена задал вопрос в разделе Другие языки и технологии
Дано трехзначное число. Найдите сумму его цифр. что не правильно? и получил лучший ответ
Ответ от Забудь наш диалог![гуру]
Вроде как и правильно на первый взгляд.... забыл я Паскаль, забыл да и Паскаль меня забыл... ;))
Ответ от Jurii[гуру]
var a, s : integer;
begin
Write('Введите число: '); ReadLn(a); a := abs(a);
s := 0; while a > 0 do begin s := s + a mod 10; a := a div 10; end;
WriteLn('Сумма цифр = ', s);end.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Хоть 5 значное в TP (до 32 тысяч) или 10 значное в PascalABC.NET…
Хоть положительное — хоть отрицательное…
var a, s : integer;
begin
Write('Введите число: '); ReadLn(a); a := abs(a);
s := 0; while a > 0 do begin s := s + a mod 10; a := a div 10; end;
WriteLn('Сумма цифр = ', s);end.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Хоть 5 значное в TP (до 32 тысяч) или 10 значное в PascalABC.NET…
Хоть положительное — хоть отрицательное…
Ответ от Vovan Vovanb14[новичек]
Попробуйте
Readln(a);
sum := 0;
repeat
Sum := Sum + a mod 10;
a := a div 10;
until a = 0;
Writeln('Сумма цифр в десятичной записи числа: ', Sum);
Попробуйте
Readln(a);
sum := 0;
repeat
Sum := Sum + a mod 10;
a := a div 10;
until a = 0;
Writeln('Сумма цифр в десятичной записи числа: ', Sum);
Ответ от Globe[гуру]
Всё правильно.
Всё правильно.
Ответ от Krab Bark[гуру]
Всё правильно, только слишком длинно.
var a:integer;
begin
write('a: '); readln(a); writeln(a div 100+a div 10 mod 10+a mod 10); readln
end.
Всё правильно, только слишком длинно.
var a:integer;
begin
write('a: '); readln(a); writeln(a div 100+a div 10 mod 10+a mod 10); readln
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Дано трехзначное число. Найдите сумму его цифр. что не правильно?
дано трехзначное число. найдите сумму и произведение его цифр.
1.
var
i: longint;
first,second,third: byte;
begin
readln(i);