Var
X:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ',sqr(Sin(x))+1)
End.
Как решать пацаны скажите
Kaspersky, Avast, Dr.Web, Eset NOD 32
Var n,i,s,a:integer;
begin
write('Введите n = '); readln(n);
s:=0; a:=0;
for i:=1 to n do
begin
a:=a+2;
s:=s+a*a;
end;
writeln('Сумма квадратов ',n,' четных натуральных чисел = ',s);
<span>end.</span>
Var
X,b:real;
Begin
WriteLn('y=7x/(3x-12)');
Write('X = ');ReadLn(X);
WriteLn('Y = ',7*X/(3*X-12));
WriteLn;
WriteLn('y=4x/(2,6-b)');
Write('X = ');ReadLn(X);
Write('b = ');ReadLn(b);
WriteLn('Y = ',4*X/(2.6-b));
End.