Информатика, опубликовано 2018-08-22 23:47:23 by Гость
Дано два целых числа x и y .Составить программу печатающую среднее арифметическое кубов этих чисел ,а также определить на сколько исходные числа отличаются от найденного значения.
Ответ оставил Гость
Program srednee;
var
x, y: integer;
sredn: real;
begin
write(x = ); readln(x);
write( y = );readln(y);
sredn := (power(x, 3) + power(y, 3)) / 2;
writeln(Srednee arifmeticheskoe = , sredn);
writeln(X otlichayetsya na ,abs(sredn-x));
writeln(Y otlichayetsya na ,abs(sredn-y));
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на