Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел

@programist alenka · Регистрация: 18.03.2009

Дано 2 числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

@S2dent · 15.06.2009, 21:01

Так что ли?

Pascal

var n,n1:integer;
    sred,sred1:real;
begin
  readln(n);
  readln(n1);
  sred:=(sqr(n)+sqr(n1))/2;
  sred1:=(abs(n)+abs(n1))/2;
  writeln(sred:2:2);
  write(sred1:2:2);
  readln;
end.

@lexus_ilia · 15.06.2009, 23:10

А ведь можно и "укоротить" код и сделать вот так:

Pascal

var n,n1:integer;
begin
  readln(n);
  readln(n1);
  writeln( (sqr(n)+sqr(n1) )/2:2:2);
  write( (abs(n)+abs(n1))/2:2:2);
  readln;
end.

@programist alenka 0 / 0 / 0 Регистрация: 18.03.2009 Сообщений: 22
		1
	Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел 15.06.2009, 18:47. Показов 6819. Ответов 2 Метки нет (Все метки) Дано 2 числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей. 0

Опции темы

Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел

Решение