Определить, является ли натуральное число —Nстепенью числа 5 или нет.
Program cikl_16-
Uses crt-
Var n:longint-
Begin
ClrScr-
Writeln(‘введите число’)- readln(n)-
While n>-5 do
N:= n div 5-
If n=5 then writeln(‘является степенью 5’) else writeln(‘не является степенью 5’)-
Readln-
End.
Категория: Циклы |
Дата: 13.11.12