Кто в этом разбирается?Помогите пожалуйста 1. Составить линейный алгоритм и программу вычисления периметра прямоугольника, если заданы длины его сторон А и В. (Р=2•А+2•В). 2. Составить алгоритм и программу вычисления произведен...
Кто в этом разбирается?Помогите пожалуйста
1. Составить линейный алгоритм и программу вычисления периметра прямоугольника, если заданы длины его сторон А и В. (Р=2•А+2•В).
2. Составить алгоритм и программу вычисления произведения и разности двух заданных чисел Р и В. (S=P•B, R=P-B).
3. Составить алгоритм и программу вычисления объёма куба, если задана длина его ребра В. (V=B•B•B).
4. Составить алгоритм и программу вычисления площади круга, если задан его радиус. (S=3.14•R•R).
5. Составить алгоритм и программу вычисления периметра треугольника, если заданы значения его сторон: А, В и С. (Р=А+В+С).
Гость
Ответ(ы) на вопрос:
ГостьPascal
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.
Не нашли ответ?
Похожие вопросы