Складить програму,що знаходить значеня S для формули S=πR^2*(∂π*2)/∂π . Складить програму на визначеня найменшого із 3-ох відемних

+ 0 -

ДимаМальта

15 февр. 2015 г., 4:03:48 (9 лет назад)

1)

var

s,r:real;

begin

readln(r);

s:=3.14*r*r;

writeln(s:8:2);

end.

2)

var

a,b,c:integer;

begin

readln(a,b,c);

if a>b then

if a>c then writeln(a, ' -большее')

else writeln(c, ' -большее')

else

if b>c then writeln(b, ' -большее')

else writeln(c, ' -большее');

end.

3)

var

n:integer;

begin

readln(n);

case n of

15:writeln('фосфор');

16:writeln('сера');

17:writeln('хлор');

18:writeln('аргон');

19:writeln('калий');

20:writeln('кальций');

21:writeln('скандий');

22:writeln('титан');

23:writeln('ванадий');

24:writeln('хром');

25:writeln('железо');

27:writeln('кобальт');

28:writeln('никель');

29:writeln('медь');

30:writeln('цинк');

else writeln('выход за пределы диапазона 15-30');

end;

end.

4)

var

a:array[1..30] of integer;

i,s:integer;

begin

s:=0;

for i:=1 to 30 do

begin

a[i]:=random(50);

write(a[i]:3);

if i mod 5=0 then s:=s+a[i];

end;

writeln;

writeln('s=',s);

end.