МНОГО БАЛЛОВ. ПАСКАЛЬ 1.Дана сторона квадрата и радиус круга. Определить площадь какой фигуры больше. 2. Даны объемы и массы двух тел. Определить плотность какого тела меньше.
МНОГО БАЛЛОВ. ПАСКАЛЬ
1.Дана сторона квадрата и радиус круга. Определить площадь какой фигуры больше.
2. Даны объемы и массы двух тел. Определить плотность какого тела меньше.
Гость
Ответ(ы) на вопрос:
ГостьПервая:
Var
A,R:real;
Begin
WriteLn('Введи длину сторону квадрата');
ReadLn(A);
WriteLn('Введи радиус круга');
ReadLn(R);
if Pi*R*R>A*A then WriteLn('Площадь круга больше')
else if Pi*R*Rm2/V2 then WriteLn('Плотность второго тела меньше')
else WriteLn('Плотности равны')
End.
Не нашли ответ?
Похожие вопросы