Question

55 баллов!!!!!
Составьте программу, которая выводит квадрат этого числа,
если оно отрицательное или корень квадратный из этого число, если оно положительное. Pascal

Answer 1

Ответ:

program z1;

var a:integer;

begin

write('a = ');

readln (a);

if a<0 then write ('a^2 = ',sqr(a));

if a>0 then write ('sqrt(a) = ',sqrt(a));

end.