Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: число с является средним геометрическим чисел а и b.
Answers & Comments
Mevel
Var a.b.c,d: integer; begin Write('Введите число a'); readln(a); Write('Введите число b'); readln(b); Write('Введите среднее геометрическое чисел а и b'); read(c); d:=sqr(a*b); Write(c=d); end.
Answers & Comments
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.