Напишите программку, которая вводит трехзначное число и обретает сумму цифр этого

Напишите программу, которая вводит трехзначное число и обретает сумму цифр этого числа.

Задать свой вопрос
Андрей Ушкинцев
Язык программирования?
Максим
Да
Danka
Паскаль
1 ответ

Ответ:

var

a,b,c,n,s: integer;

begin

readln(n);

if ((ngt;99) and (nlt;1000)) then

begin

a:=n div 100;

b:=n div 10 mod 10;

c:=n mod 10;

s:=a+b+c;

writeln('Сумма 3-х цифр одинакова ',s);

end else writeln('Введите трехзначное число!');

end.

Разъясненье:

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


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

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

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

Войти на сайт