Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.
Var a,b:real;
begin
readln(a,b);
if(sqrt(b)<a) then b:=b*5
else b:=0;
writeln(b, ' - второе число');
end.
Ответ:
var x:Real;
begin
write ('x = ');
Readln(x);
if x<0 then Write('y = ',x*x) else
if x>2 then Write('y = ',(3*x-1)/(2*x)) else
Write('y = ',sqr(x)*x+5)
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=MatrRandom(8,5,-99,99); c.Println(4); Writeln(4*c.ColCount*'-');
c.SwapCols(2,4);
Writeln('*** Результат ***'); c.Println(4)
end.