ВЫЧИСЛИТЬ ПЕРИМЕТР КВАДРАТА, ЕСЛИ ИЗВЕСТНА ЕГО ПЛОЩАДЬ! Напишите программу в FreePascal!! Cрочно
Ответы на вопрос
Ответил Anya1715
0
program kvadrat;
uses crt;
var a,s,p : real;
begin
clrscr;
writeln('Введите S:');
readln(S);
a:=sqrt(S);
P:=a+a+a+a;
writeln('P= ',P:6:2);
readln;
end.
uses crt;
var a,s,p : real;
begin
clrscr;
writeln('Введите S:');
readln(S);
a:=sqrt(S);
P:=a+a+a+a;
writeln('P= ',P:6:2);
readln;
end.
Новые вопросы