Используем схему Горнера.
y = x³+2.5x²-x+1 = 1+x(-1+x(2.5+x))
var
x,y:real;
begin
Read(x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
Writeln(y)
end.
1. N=128 N=2^i i=7 - бит в одном байте. 7*5=35 бит - объем сообщения.
Var
a, b, c: real;
begin
writeln('Введите два катета A,B и гипотенузу С треугольника');
readln(a, b, c);
if (c >= a + b) or (a + b + c = 0) then writeln('Такого треугольника не существует')
else begin
if sqr(c) = sqr(a) + sqr(b) then writeln('Прямоугольный');
if sqr(c) > sqr(a) + sqr(b) then writeln('Тупоугольный');
if sqr(c) < sqr(a) + sqr(b) then writeln('Остроугольный');
end;
end.
Книгопечатание — процесс создания печатной продукции. Термин обычно употребляют в историческом контексте.
Хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате???
исходник от java прикрепил,
вот паскаль
var a,b,c,d,x1,x2 :extended;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then begin write('Korney net!'); end;
if d=0 then begin
if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end;
if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end;
if d>0 then begin
if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
end; end.
