Паскаль. Безотлагательно. Поординарнее. Дано трехзначное число. Написать программу, дозволяющую вывести на

Паскаль. Срочно. Поординарнее. Дано трехзначное число. Написать программу, позволяющую вывести на экран сумму его цифр.

Задать свой вопрос
Юра Миркадьеров
Здесь даже тужиться не надо
Вика Шлядина
ну для вас это не неувязка.
Павел
халява
Вартанян Нелли
готово
Stepan
впринципе он хоть какие числа может перечесть
Кирилл
Если не жалко тыкни "спасибо". Просто я желал испытать себя тут как помошника в информатике, сейчас ток зарегистрировался хочется быть попопулярнее
Илюшка Ходусев
есть еще пара задачек
Арсений Голишников
давай
Егор Туликов
должно отобразиться
Amelija Nekundje
Тут даже тужиться не надобно
Серокотов Валерий
ну для вас это не неувязка.
Galina
халява
Люба Локожилова
готово
Леха
впринципе он хоть какие числа может перечесть
Лидия Тышко
Если не ничтожно тыкни "спасибо". Просто я желал испытать себя тут как помошника в информатике, сейчас ток зарегистрировался охото быть поизвестнее
Вадим Радомысленский
есть еще пара задачек
Бегулов Павел
давай
Дарья Чибурашкина
обязано отобразиться
1 ответ

var

 d, k: integer;

begin

 write('Запишите число: ');

 readln(d);

 while d gt; 0 do  

 begin

   k := k + (d mod 10);

   d := d div 10;

 end;

 writeln(k);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт