var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;
Циклической,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
<span>12 10 – 5 7 + * 7 – 2 * =
</span><span>2 5 7 + * 7 – 2 * =
</span>2 12 * 7 – 2 * =
24 7 -2 * =
17 2 * =
34
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
Наливаете полный сосуд 5 литров и переливаете в сосуд 7 литров. в сосуде 7 литров останется 2 свободных литра, потом вы наливаете полный сосуд 5 литров и переливаете в сосуд 7 литров.в сосуде 7 литров останется 4 свободных литра, потом наливаете полный сосуд 5 литров и переливаете в сосуд 7 литров. в сосуде 7 литров будет налит 1 литр, потом наливаете полный сосуд 5 литров и все. в сосуде7 литров будет один литр, а в сосуде 5 литров будет 5литров.