cделать с помощью цикла repeat until Логической переменной…

Question

cделать с помощью цикла repeat until Логической переменной t присвоить значение true или false в зависимости от того, является натуральное число k степенью 3 или нет.

Answer 1

90

sfminus

17 февраля 2023

Var chislo: integer; proverka: boolean; begin proverka: =true; read (chislo); repeat if chislo=0 then //так как 0 не натуральное число begin proverka: =false; break; end; if (chislo mod 3) >0 then begin proverka: =false; break; end else chislo: =chislo div 3; until (chislo=0); if proverka then WriteLn ('Да') else WriteLn ('Нет'); readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: