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

Глава 1 раздел 2

program Project2;

{$APPTYPE CONSOLE}

uses math;

var r, l, s, V, K: real;

begin

write ('r=');

read (r);

l:=2*Pi*r;

writeln ('l=', l:6:2);

s:=Pi*r*r;

writeln ('s=', s:6:2);

V:=4/3*Pi*r*r*r;

writeln ('V=', V:6:2);

K:=4*Pi*r*r;

write ('K=', S:6:2);

readln;

readln;

readln;

readln;

end.

Глава 2 Раздел 1

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.