ИНФОРМАТИКА ЭТО ЧЕРЕЗ ПАСКАЛЬ ДЕЛАТЬ
1)Написать программу, находящую периметр и площадь квадрата.
●
2)Написать программу, находящую сумму, разность, произведение и частное двух чисел.

Question

Информатика: ИНФОРМАТИКА ЭТО ЧЕРЕЗ ПАСКАЛЬ ДЕЛАТЬ 1)Написать программу, находящую периметр и площадь квадрата. ● 2)Написать программу, находящую сумму, разность, произведение и частное двух чисел.

кира674 · Accepted Answer

Program triangle;
label undf;
var side, h, S, Ro, Rv: real;
begin
undf: writeln('Введите сторону треугольника:');
readln( side );

h := sqrt( sqr( side ) - ( sqr( side ) / 4) ); // расчет высоты
S := ( ( 1 * side) / 2 ) * h; // расчет площади
Rv := ( side / 2 ) * sqrt( ( 2 * side - side ) / ( 2 * side + side ) ); // расчет вписанной окружности
Ro := ( sqr( side ) / sqrt( sqr( 2 * side) - sqr( side ) ) ); // расчет описанной окружности

// вывод данных
writeln('Высота: ', h);
writeln('Площадь: ', S);
writeln('Радиус вписанной окружности: ', Rv);
writeln('Радиус описанной окружности: ', Ro);

end.

MOGZ ответил