Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

МНОГО БАЛЛОВ. ПАСКАЛЬ
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*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.