Есть ответ 👍

Begin write('N = ');
readln(N);
{ Следующий цикл будет выполнятся до тех пор,
пока остаток при делении N на d равен 0: }
while (N mod d = 0) do { <-- Проверяем делимость на d }
N := N div d; { <-- Делим нацело N на d }
{ На выходе из цикла, если N - степень d, то после
многократного деления N на d будет N = 1: }
writeln(' ', (N = 1));
readln
end.
ПЕРЕВЕСТИ ИЗ ПАСКАЛЯ В КУМИР

107
294
Посмотреть ответы 1

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


Для представления информации при:   1)записи арифметических выражений - используются цифры, знаки арифметических операций (+ , - , *, /)2)записи мелодий - ноты  3)  записи звуков речи - буквы алфавита4) оформление календаря погоды - пиктограммы (картинки): солнечно, пасмурно, дождь и т.д.

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