Question

Решите пожалуйста информатику.

Answer 1

Ответ:

Объяснение:

procedure rectangle();

var a, b  : real;  // Стороны прямоугольника

   p, s, d: real; // Периметр, площадь, диагональ

begin

    {Считывание начальных значений}

    write('Input a: ');

    readln(a);

    write('Input b: ');

    readln(b);

    writeln();

    {Вычисления}

    p:= (a + b) * 2;

    s:= a * b;

    d:= sqrt(a*a + b*b);

    {Вывод}

    writeln('p = ', p:8:1);

    writeln('s = ', s:8:1);

    writeln('d = ', d:8:1);

    readln();  // удерживаем консоль, можно убрать

end;

procedure maxNumbers();

var x, y, z  : real;  // Три числа

   maxXYZ: real; // максимальное число

begin

    {Считывание начальных значений}

    write('Input x: ');

    readln(x);

    write('Input y: ');

    readln(y);

    write('Input z: ');

    readln(z);

    writeln();

    {Вычисления}

    maxXYZ:= x;

    if (maxXYZ < y) then maxXYZ:= y;

    if (maxXYZ < z) then maxXYZ:= z;

    {Вывод}

    writeln('maxXYZ = ', maxXYZ: 10: 2);

    readln();  // удерживаем консоль

end;  

begin

    rectangle();

    maxNumbers();

end.