Сделать на паскале.переделать на постусловие. 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.

katyusha1514111 katyusha1514111    1   18.08.2019 01:20    0

Ответы
ASLiza1992 ASLiza1992  26.08.2020 06:13
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика