Question

Сделать на паскале.Переделать задачу на постусловие.

program Zadacha_6;
var x,y:real;
begin
x:=2;
y:=2;
while x<=42 do
while y<=40 do
begin
y:=y+2/sqrt(x);
x:=x+2;
end;
writeln(y);
end.

Answer 1

program Zadacha_6;
var
  x,y:real;
begin
  x:=2;
  y:=2;
  repeat
    repeat
      y:=y+2/sqrt(x);
      x:=x+2
    until y>40
  until x>42;
  writeln(y)
end.