Var x, y: real; begin x : = -5; writeln( x y ); - вопрос №5652859 от лейс1215 03.07.2021 16:45

Question

Информатика: Var x, y: real; begin x : = -5; writeln( x y ); while x = 5 do begin y : = 5 - x*x/2; writeln(x: 4: 1, | ,y: 5: 2); x : = x + 0.5 end; end. : из цикла while в цикл for

лейс1215 · Answer

Вот кодОбъяснение:Program pr2(output);var x,y:real;var i:integer;beginx:=-5;writeln( x      y );for i:=1 to 21 do beginy:=5-x*x/2;writeln(x:4:1, | ,y:5:2);x:=x+0.5end;end....

Var x, y: real; begin x : = -5; writeln(' x y '); while x < = 5 do begin y : = 5 - x*x/2; writeln(x: 4: 1,' | ',y: 5: 2); x : = x + 0.5 end; end. : из цикла while в цикл for