Пожалуйста Составить программу) : Найдите количество двухзначных чисел ,которые делятся на сумму своих цифр.

Ответы:
Радмила Михайловская
09-11-2013 12:03

program n1; var    i,k:integer;begink:=0;for i:=10 to 99 do   if i mod(i div 10 + i mod 10)=0 then k:=k+1;writeln(k);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Alena Lyashchuk

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Пожалуйста Составить программу) : Найдите количество двухзначных чисел ,которые делятся на сумму своих цифр.» от пользователя Alena Lyashchuk в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!