Меню сайта

Задача №33

Определить, является ли натуральное число —Nстепенью числа 5 или нет.


Program cikl_16-

Uses crt-

Var n:longint-

Begin

ClrScr-

Writeln(‘введите число’)- readln(n)-

While n&gt-5 do

N:= n div 5-

If n=5 then writeln(‘является степенью 5’) else writeln(‘не является степенью 5’)-

Readln-

End.

Категория: Циклы | Дата: 13.11.12

Меню раздела
Блок