1)Найдите ошибки в программах: a) Program Ошибки1; Begin Summa:=6+8; End; b) Program Ошибки2; Begin Var X:integer; X:=6+8; Write(X); End; 2)Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел. ДАННУЮ ПРОГРАММУ НУЖНО НАПИСАТЬ В ПАСКАЛЕ.
1)Найдите ошибки в программах: a) Program Ошибки1; Begin Summa:=6+8; End; b) Program Ошибки2; Begin Var X:integer; X:=6+8; Write(X); End; 2)Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел. ДАННУЮ ПРОГРАММУ НУЖНО НАПИСАТЬ В ПАСКАЛЕ.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа с ошибкой 1:
Program Ошибки1;
Var
Summa: integer;
Begin
Summa := 6 + 8;
End.
Программа с ошибкой 2:
Program Ошибки2;
Var
X: integer;
Begin
X := 6 + 8;
Write(X);
End.
Программа вычисления среднего арифметического кубов и среднего геометрического модулей:
Program AverageCalculation;
Var
num1, num2: integer;
cubeAvg, moduleAvg: real;
Begin
Write('Введите первое число: ');
Readln(num1);
Write('Введите второе число: ');
Readln(num2);
cubeAvg := (Power(num1, 3) + Power(num2, 3)) / 2;
moduleAvg := Sqrt(Abs(num1) * Abs(num2));
WriteLn('Среднее арифметическое кубов чисел: ', cubeAvg:0:2);
WriteLn('Среднее геометрическое модулей чисел: ', moduleAvg:0:2);
End.