Ответ(ы) на вопрос:
Гостьprogram test;
var x, y:integer;
var f:boolean;
begin
x:=10;
y:=1;
f:=true;
repeat
x:=x div 3;
y:=y+1;
if x+y=4 then f:=false;
until (x=0) or not f;
writeln(x);
end.
Ответ
x = 1
Не нашли ответ?
Похожие вопросы