Var r1,r2,ds:real;
begin
write('R1 = '); readln(r1);
write('R2 = '); readln(r2);
ds:=pi*abs(r1*r1-r2*r2);
writeln('ds = ',ds);
end.
Пример:
R1 = 6
R2 = 4
ds = 62.8318530717959
1) = A1*B1
2) перечень клиентов крупной фармацевтической фирмы
1,3
......................
Const N=10;
var a: array [0..N] of integer;
i, m: integer;
begin
for i := 0 to N do
a[i] := random(1000) - 500; { Надо же что-то в массив закинуть =) }
for i := 0 to N do
if ((a[i] > 0) and (a[i] > a[m])) then
m := i;
writeln('[', m, '] => ', a[m]);
<span>end.</span>
Нажать кнопку на телефонеhome