var x, y: real; begin x := 2; writeln('/|\'); writeln('| x | y |'); writeln('|||'); while x < 4.1 do begin y := 3 * x - 4 * sin(sqr(x)); write('| ', x:1:1, ' |', y:2:2); if y / 10 < 1 then write(' '); writeln('|'); x := x + 0.2; end; writeln('\|/') end.
// PascalABC.NET 3.0,сборка 1073 const n=10; var a,b:array[1..n] of integer; i,p,k,max:integer; begin Randomize; max:=-200; k:=0; Writeln(' № A B AixBi'); Writeln(''); for i:=1 to n do begin a[i]:=Random(21)-10; b[i]:=Random(21)-10; p:=a[i]*b[i]; Writeln(i:2,a[i]:4,b[i]:4,p:5); if p<0 then begin Inc(k); if p>max then max:=p end end; Writeln(''); Writeln('Количество AixBi<0 равно ',k); Writeln('Максимум среди этих произведений равен ',max); end.
var
x, y: real;
begin
x := 2;
writeln('/|\');
writeln('| x | y |');
writeln('|||');
while x < 4.1 do
begin
y := 3 * x - 4 * sin(sqr(x));
write('| ', x:1:1, ' |', y:2:2);
if y / 10 < 1 then
write(' ');
writeln('|');
x := x + 0.2;
end;
writeln('\|/')
end.