Var
x0, xk, dx, e, x, aa: real;
i: integer;
function f(x, a: real): real;
begin
if x < 0 then
f := 1 / Tan(x) + sqrt(1 + abs(x - 2))
else if x = 0 then
f := (a + x) + sin(Pi)
else
f := a * x * cos(x * Pi);
end;
begin
write('Введите промежуток и шаг ([a,b] h) и точность Е ');
readln(x0, xk, dx, e);
write('a =');
readln(aa);
x := x0;
writeln(' x ':10, ' | ', ' F(x,a) ':10);
repeat
writeln(x:10:3, ' | ', f(x, a):10:3);
x := x + dx;
until x >= xk;
end.
Текстовые - txt, doc, docx, rtf
графические - gif, bmp, jpg
видео - flv, avi, mpeg
звуковые - mp3, wav, wma
Var i : Byte;
Begin
For i:=1 to 5 do Write(i*2,' ');
end.
var a: integer;
begin
readln(a);
if a<3 then
writeln(a*a)
else writeln(4*a)
end.