Используем схему Горнера.
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.
Var a,b,c:real;
begin
repeat
write('Введите длины сторон треугольника a,b,c ');
readln(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a=b) and (b=c) then writeln ('Равносторонний')
else writeln('Не равносторонний или такой треугольник не существует');
end.
Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний
Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует
Число
- числовое
месяц
- текстовое
температура
- числовое
<span>осадки
— текстовое
</span>
ветер
— текстовое
<span>
</span>
Первичный
ключ — число + месяц