Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

инфа / Глава 2 раздел 1

.doc
Скачиваний:
8
Добавлен:
15.05.2015
Размер:
26.62 Кб
Скачать

program 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.

Соседние файлы в папке инфа