МНОГО БАЛЛОВ. ПАСКАЛЬ 1.Дана сторона квадрата и радиус круга. Определить площадь какой...

Question

МНОГО БАЛЛОВ. ПАСКАЛЬ
1.Дана сторона квадрата и радиус круга. Определить площадь какой фигуры больше.
2. Даны объемы и массы двух тел. Определить плотность какого тела меньше.

Answer 1

Первая:

Var
A,R:real;
Begin
WriteLn('Введи длину сторону квадрата');
ReadLn(A);
WriteLn('Введи радиус круга');
ReadLn(R);
if Pi*R*R>A*A then WriteLn('Площадь круга больше')
else if Pi*R*Relse WriteLn('Площади фигур равны');
End.

Вторая:

Var
m1,m2,V1,V2:real;
Begin
Write('m1 = ');ReadLn(m1);
Write('m2 = ');ReadLn(m2);
Write('V1 = ');ReadLn(V1);
Write('V2 = ');ReadLn(V2);
if m1/V1else if m1/V1>m2/V2 then WriteLn('Плотность второго тела меньше')
else WriteLn('Плотности равны')
End.

Comments

Большое спасибо!

---

Рад помочь=))