Составить программу для решения задачи. Ввести любое число с клавиатуры. Найти его...

Question

Составить программу для решения задачи. Ввести любое число с клавиатуры. Найти его квадрат, если число отрицательное, в противном случае найти квадратный корень.

Answer 1

Program asd;
USES crt;
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo: ');
Readln(a);
If a<0 then<br> s:=sqr(a) 
else
s:=sqrt(a); 
Writeln(s);
END.

Answer 2

Var n,j:real;
begin
writeln('Введите число');
readln(n);
if n < 0 then j:=n*n else j:=sqrt(n);
writeln(j);
end.