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

зулейха4 зулейха4    2   12.06.2019 14:00    2

Ответы
Биіккесамға Биіккесамға  10.07.2020 01:18
Var n:real;
begin
  writeln('n = ');
  readln(n);
  if n>0 then writeln('sqrt(n)=',sqrt(n));
  if n<0 then writeln('n^2=',sqr(n));
  readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика