Предмет: Информатика,
автор: Mister2265
Срочно! введено число n, найдите сумму цифр числа
например,пишешь 361, и он должен сложить 3+6+1
решить с циклом while do
csharp:
Какой язык?
Pascal
Извините, но Вы что-то путаете. Цикл с постусловием do..while присутствует в таких языках, как, например, C++, C#. В Pascal он записывается так: repeat..until.
Может сделать в Excel VBA, тем более что там есть do while?
там репит антил, ошибся я
var
n, sum: integer;
begin
sum := 0;
Readln(n);
repeat
sum := sum + (n mod 10);
n := n div 10;
until n = 0;
Writeln(sum);
end.
n, sum: integer;
begin
sum := 0;
Readln(n);
repeat
sum := sum + (n mod 10);
n := n div 10;
until n = 0;
Writeln(sum);
end.
Ответы
Автор ответа:
1
program raf105;
var
n,sum: integer;
begin
write('Введите число: ');
readln(n);
abs(n);
repeat
sum:= sum + n mod 10;
n:= n div 10
until n = 0;
writeln('Сумма цифр: ',sum);
end.
PascalABC
Интересные вопросы
Предмет: Алгебра,
автор: toni4ka581
Предмет: Математика,
автор: Аноним
Предмет: Другие предметы,
автор: Аноним
Предмет: Литература,
автор: Pupsikmaf1
Предмет: Математика,
автор: Мила123456789011