Ответы
Ответ дал:
0
var
a, b, c, z, out: real;
begin
writeln("Введите a, b, c, z: ");
readln(a, b, c, z);
out := z * z * z * z + 4 * a * b / (c * c);
writeln("Равно: ", out);
end.
a, b, c, z, out: real;
begin
writeln("Введите a, b, c, z: ");
readln(a, b, c, z);
out := z * z * z * z + 4 * a * b / (c * c);
writeln("Равно: ", out);
end.
Ответ дал:
0
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a, b, c, z: real;
Print('Введите через пробел a, b, c, z:');
Read(a, b, c, z);
Print(z ** 4 + 4 * a * b / Sqr(c))
end.
Приложения:

Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад