Question

Помогите! Информатика 7 класс​

Answer 1

// задание 1

var

 x, y, z1, z2: Real;

begin

 Write ('Введите x, y:');

 ReadLn (x, y);

 z1 := x * x * x + y;

 z2 := x * y * y;

 if z1 > z2 then

   WriteLn (z1)

 else

   WriteLn (z2);

 ReadLn;

end.

// задание 2

var

 d, a, b: Real;

begin

 Write ('Введите сторону квадрата:');

 ReadLn (d);

 Write ('Введите стороны прямоугольника:');

 ReadLn (a, b);

 if d * d < a * b then

   WriteLn ('Площадь квадрата меньше площади прямоугольника')

 else if a * b < d * d then

   WriteLn ('Площадь прямоугольника меньше площади квадрата')

 else if a * b = d * d then

   WriteLn ('Площади прямоугольника и квадрата равны');

 ReadLn;

end.

Answer 2

добавил 2 задание

Answer 3

best boi

Answer 4

Yes my friend