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

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.

Question

Лукаша

25 сентября, 22:47

+3

Ответы (1)

Знаете ответ на вопрос?

Ема · 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.

Сделать на паскале. Переделать задачу на постусловие.program Zadacha_6;var x, y:real;beginx:=2;y:=2;while x<=42 dowhile y<=40 dobeginy:=y+2/sqrt (x) ;x:=x+2;end;writeln (y) ;end.