Мосей
4 год назад
Пожалуйста посчитайте заменить repeat и until в этой программе:var x,y:real;begin;x:=5;repeaty:=4*x-5;writeln('if x=',x,' then y=',y);x:=x+0.5;until x=10.5;end.
ОТВЕТЫ
Камилла
Oct 24, 2020
var x,y:real;
begin;
x:=5;
while x < 10.5 do
begin
y:=4*x-5;
writeln('if x=',x,' then y=',y);
x:=x+0.5;
end;
end.
begin;
x:=5;
while x < 10.5 do
begin
y:=4*x-5;
writeln('if x=',x,' then y=',y);
x:=x+0.5;
end;
end.
728
Смежные вопросы:
