cделать с помощью цикла repeat until
Логической переменной t присвоить значение true
или false в зависимости от того, является натуральное число k степенью 3 или
нет.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад