Составьте программу S=корень a b

Question

Составьте программу S=корень a b

Comments

А что между a и b находится?

Answer 1

Var i,a,b:integer;
er:boolean;
begin
Repeat
  Write('Введите a: ');
  Readln(a);
  Write('Введите b: ');
  Readln(b);
  if a*b<0 then begin<br>    er:=true;
    Writeln('Ошибка. Корень из отрицательного числа вычислять нельзя.');
 end;
until not(er=true);
Writeln('SQRT(a*b) = ',sqrt(a*b));
end.

Comments

спасибо