дано трехзначное число найдите сумму его цифр

Дано трехзначное число найдите сумму его цифр

Задать свой вопрос
Igorjan Koledinov
Язык программирования?
Виктория Авурова
ты имеешь в виду создать этому вопросу программку для вычисления?
Амина Намушьян
Вопрос задан по информатике, так что размышляю да
Regina Rysevech
может с поддержкою pascal ABC либо C++
Пиринович Сашок
Язык не указан, каждый волен писать на любом.
Надя Овросимова
Либо даже просто нарисовать блок-схему - это тоже решение.
1 ответ
//дано трехзначное число найдите сумму его цифр
var x,y,i:word;
begin
writeln('Введите трехзначное число');
readln (x);
while (999lt;x) or (xlt;100) do //в цикле проверяется "трехзначность" числа
  begin
     writeln('Вы ввели не трехзначное число пробуйте еще раз');
    readln (x);
  end;
for i:=1 to 3 do // число делиться на числа
      begin
        y:=y+x mod 10;
        x:=x div 10;
      end;
writeln('Сумма цифр данного числа ',y);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт