Question

Напишите программу которая просит пользователя ввести 2 числа с клавиатуры. Найдите среднее арифметическое квадратов этих чисел и выведите его на экран

Answer 1

var a,b:integer;

s:real;

begin

write('ВВедите 2 числа');

readln(a,b);

s:= (sqr(a)+sqr(b))/2;

writeln(s);

end.