Предмет: Информатика,
автор: zmurshik
ПОМОГИТЕ ПОЖАЛУЙСТА !!!!!!!!!!!!!!!!!!!!!!!
1.Составить алгоритм и программу, вычисления площади и периметра прямоугольного треугольника, значения длин которого (a,b,c) задаются в программе. Площадь вычисляется по формуле: S=a*b/2, периметр P=a+b+c. 2.Записать результат выполнения программы вычисления значения выражения. X=20. Y=10. a=x+3yx
Ответы
Автор ответа:
0
. 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.
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.
Похожие вопросы
Предмет: Литература,
автор: jejejd516
Предмет: История,
автор: lesyason1805
Предмет: История,
автор: koskamama0
Предмет: Алгебра,
автор: Бекнур2007
Предмет: Математика,
автор: likrar