Здрасти, не дайте умереть, решите пожалуйста такую задачу, буду нескончаемо признателен

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

Задать свой вопрос
1 ответ
Pascal
1 var n, sum: integer;
2 begin
3 write ( 'введите число:' );
4 readln (n);
5 sum:=0;
6 while n gt; 0 do begin
7 sum:= sum+ n mod 10;
8 n:= n div 10
9 end
10 writeln (' сумма цифр = ' , sum ) Фортуны все что знаю
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт