Question

Здравствуйте, не дайте умереть, решите пожалуйста такую задачу, буду бесконечно благодарен :3 :
Переменная X содержит трёхзначное число. Поместите в переменную сумму цифр этого числа. Результат выведите через функции управления цветом и координатами.

Answer 1

Pascal
1 var n, sum: integer;
2 begin
3 write ( 'введите число:' );
4 readln (n);
5 sum:=0;
6 while n > 0 do begin
7 sum:= sum+ n mod 10;
8 n:= n div 10
9 end
10 writeln (' сумма цифр = ' , sum ) Удачи все что знаю