Двузначное число делится на 9

[yana1996]

Двузначное число делится на 9, если сумма его цифр делится на 9. Определить, делится ли двузначное число, введенное с клавиатуры , на 9.

[Аватар]

клавиатуры дисплея

Это что?

[yana1996]

Дисплей черное окно
С клавиатуры вводятся числа в дисплей

[northener]

Сообщение от yana1996

Дисплей черное окно
С клавиатуры вводятся числа в дисплей

Ещё один вариант пресловутого чёрного ящика.
Смеяться уже очень давно не хочется.
Насколько низко пал уровень наших образовательных учреждений

[Serge_Bliznykov]

подозреваю, что речь идёт о КОНСОЛЬНОМ приложении.

program project1;

{$APPTYPE CONSOLE}

var N : integer;
begin
repeat
  Write('Введите двухзначное положительное число: ');
  ReadLn(n)
until (n>9) and (n<100);
if (n div 10)+(n mod 10)=9 
then WriteLn('Число делится на 9')
else WriteLn('Число не делится на 9');
ReadLn
end.

Устроит?

[IliaIT]

(n div 10)+(n mod 10)=9

Это что такое? оно не верно например для числа 99. Достаточно проверить остаток

(n mod 9)=0

не теорему же доказываем.

[Аватар]

Ну ТС же просит по сумме цифр. Просто чуть подправить ((n div 10)+(n mod 10)) mod 9=0

[Serge_Bliznykov]

Сообщение от IliaIT

Это что такое? оно не верно например для числа 99

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

(n mod 9)=0

это по заданию нельзя делать

Сообщение от Аватар

Просто чуть подправить ((n div 10)+(n mod 10)) mod 9=0

да, согласен.