Из курса математики мы знаем что периметр треугольника равен сумме его трех сторон, в равностороннем треугольнике они равны , потому
, где а - сторона равностороннего треугольника.
а площадь расчитывается по формуле
Смотрим программы.
1 Программа подходит, формулы в функциях вроде правильно написаны.
2 Программа не подходит, по виду вроде для квадрата формулы
3 Программа не подходит. Формула площади вроде для треугольника( половина основания на высоту), но не для равностороннего и в функции для периметра в аргументах 3 штуки - очевидно это стороны треугольника и предполагается что они разные.
Відповідь:
program nodd;
var chislo1, {первое число}
chislo2, {второе число}
nod, {наибольший общий делитель}
r:integer; {остаток отделения 1-го числа на 2-е}
begin
Writeln ('Vvedite chisla:');
Readln (chislo1,chislo2); {ввод двух чисел с клавиатуры}
while (chislo1 mod chislo2)<>0 do {цикл выполняется пока остаток <> 0}
begin
r:=chislo1 mod chislo2; {вычисление остатка 1-го числа на 2-ое}
chislo1:=chislo2; {присваиваем 2-е число 1-му}
chislo2:=r; {присваиваем остаток от деления 2-му числу}
end;
nod:=chislo2; {присваиваем 2-е число переменной nod}
Writeln ('NOD: ',nod); {Вывод НОД}
Readln;
end.
Пояснення:
v,s:real;
begin
writeln('Введите стороны треугольника');
read(a,b,c);
v:=a*b*c;
s:=2*(a*b+b*c+a*c);
writeln('Объем параллелепипеда равен ',v,' при площади поверхности равной ',s);
end.