Сделать на паскале.Переделать задачу на постусловие. 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.
Сделать на паскале.Переделать задачу на постусловие.
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.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы