Дано целое число ,не меньшее 2.вывести сколько делителей у этого числа. в паскале решение для 8класса

289

409

Посмотреть ответы 2

Ответы на вопрос:

Igor2000Petrov

Информатика

4,6(44 оценок)

Var n,i,k: integer; begin write ('введите целое число (n> =2): '); readln (n); k: =0; for i: =1 to n do if n mod i = 0 then k: =k+1; writeln('количество делителей числа ',n,' равно: ',k) end.

werty13pl16

Информатика

4,8(45 оценок)

привет привет привет привет привет привет привет привет привет

Популярно: Информатика

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку