1. Составить программу для нахождения значения выражения y=5x^3+16x^2+18x-29
2. Составить программу для нахождения периметра и площади прямоугольного треугольника, если даны длины его катетов вводятся с клавиатуры.
3. Составить программу для нахождения значения выражения a+b/a-b+корень c/2
В ПАСКАЛЕ!!
НА ФОТО ВЫДЕЛЕНО, ТО ЧТО НУЖНО!!
Приложения:
Ответы
Ответ дал:
0
1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
Ответ дал:
0
в первом ошибку выдает
Ответ дал:
0
beginread (x);
Ответ дал:
0
после " ; "
Ответ дал:
0
Извиняюсь, begin и read (x) нужно разделит пробелом)
Ответ дал:
0
Или просто сделать перенос на другую строку
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад