Кто в этом разбирается? 1. составить линейный алгоритм и программу вычисления периметра прямоугольника, если заданы длины его сторон а и в. (р=2•а+2•в). 2. составить алгоритм и программу вычисления произведения и разности двух заданных чисел р и в. (s=p•b, r=p-b). 3. составить алгоритм и программу вычисления объёма куба, если задана длина его ребра в. (v=b•b•b). 4. составить алгоритм и программу вычисления площади круга, если задан его радиус. (s=3.14•r•r). 5. составить алгоритм и программу вычисления периметра треугольника, если заданы значения его сторон: а, в и с. (р=а+в+с).
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.