Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:инфа / Глава 2 раздел 1
.docprogram Project2;
{$APPTYPE CONSOLE}
uses math;
var S, K, d, g: real;
begin
write ('S, K=');
read (S, K);
d:=2*sqrt(S/Pi);
writeln ('d=', d:6:2);
g:=sqrt(2*K);
writeln ('g=', g:6:2);
readln;
readln;
if g<=d then write ('mozno') else write ('nelzya');
readln;
end.
Соседние файлы в папке инфа