с клавиатуры вводиться трёхзначное число ,составить программку которая проверит делиться ли

С клавиатуры вводиться трёхзначное число ,составить программку которая проверит делиться ли она на сумму собственных чисел

Задать свой вопрос
Polinka
Паскаль?
Виталий Ляминский
Да
1 ответ
Var
A,B:integer;
Begin
WriteLn('Введите целое трёхзначное число');
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10) + (A mod 10);
if (A mod B = 0) then Write(A,' делится на ',B)
else Write(A,' не делится на ',B);
End.
Галина
Спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт