ВЫЧИСЛИТЬ ПЕРИМЕТР КВАДРАТА, ЕСЛИ ИЗВЕСТНА ЕГО ПЛОЩАДЬ! Напишите программу в FreePascal!!...

Question

ВЫЧИСЛИТЬ ПЕРИМЕТР КВАДРАТА, ЕСЛИ ИЗВЕСТНА ЕГО ПЛОЩАДЬ! Напишите программу в FreePascal!! Cрочно

Comments

Perimeterr=sqrt(Square)*4;

Answer 1

{Должно работать так:}
{Вариант для Borland Pascal 7.1}
{Лучше, чем ничего}

program squarrel;
var a:real;

begin
writeln('square?');
readln(a);
if(a<0) then writeln('square MUST be more or equal than 0.')<br>else begin a:=sqrt(a)*4; writeln('square is', a:2:2); end;
readln;
end.