Question

Напишите программы пожалуйста

Answer 1

1)
Program n_5;
 var
    a, b, c: real;
begin
 write('введите высоту - '); readln(a);
 write('введите основание - '); readln(b);
 c:= (a*b)/2;
 write('Площадь треугольника = ', c);
end.

2) 
Program n_5;
 var 
    a, b: real;
begin
 write('Введите радиус - '); readln (a);
 b:= 2*3.14159265*a;
 write('Длина окружности = ', b);
end.

3)
Program n_5;
 var
    a, b: real;
begin
 write('Введите радиус - '); readln(a);
 b:= 3.14159265*a;
 write('Площадь круга = ', b);
end.

4)
Program n_5;
 var
    a, b, c: real;
begin
 write ('Введите длину прямоугольника - '); readln (a);
 write ('Введите ширину прямоугольника - '); readln (b);
 c:= a*b;
 write('Площадь прямоугольника = ', c);
end.

5)
Program n_5;
 var
    a, b, c: real;
begin
 write ('Введите длину прямоугольника - '); readln(a);
 write ('Введите ширину прямоугольника - '); readln(b);
c:= (2*a) + (2*b);
write ('Периметр прямоугольника = ', c);
end.

Пожалуйста, а вообще, 5 баллов как-то мало за такую работу)
Удачи :3

Answer 2

Спасибо большое