Перевести на язык программирования pascalabc данные выражения.

yulyatigayali yulyatigayali    1   03.10.2019 19:50    0

Ответы
hyrshkananastasiya hyrshkananastasiya  27.08.2020 12:18
Задание 1var  firstNumber, secondNumber: integer; begin  Write('Введите два числа: ');  Read(firstNumber);  Read(secondNumber);    Writeln('Среднее значение чисел ', firstNumber, ' и ', secondNumber, ' = ', (firstNumber + secondNumber) / 2);end.Задание 2var  x, a, b, y: real;  { значение переменных } begin  Writeln('a) y = 2 * x^2 - 5 * x + 7');  Write('Введите x: ');  Read(x);  Writeln('y = ', 2 * Power(x, 2.0) - 5 * x + 7);    Writeln('б) c = (a + b)^2 - 2 * a^2 * b');  Write('Введите a, b: ');  Read(a, b);  Writeln('c = ', Power(a + b, 2.0) - 2 * Power(a, 2.0) * b);    Writeln('в) z = | x - y^2 | + x * sqrt(x)');  Write('Введите x, y: ');  Read(x, y);  Writeln('z = ', Abs(x - Power(y, 2.0)) + x * Sqrt(x));end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика