Там её небудет туда не вложена это програма я сама удивилась когда заметилп что её нет
1. <span>2) МАКСИМ
2. </span><span>4) КСЕНИЯ.
3. </span><span>1) ИРИНА
4. </span><span>1) Верблюд
5. </span><span>2) Кенгуру
6. </span><span>4) Страус
7. </span><span>1) ЖАРА
</span>
Чтобы перейти из десятичной системы счисления в восьмеричную, нужно выполнить деление столбиком на 8, а остатки, начиная с последнего, и будут являться ответом.
а) 51310 = 10018
513 | 1
64 | 0
8 | 0
1
б) 60010 = 11308
600 | 0
75 | 3
9 | 1
1
в) 201010 = 37328
2010 | 2
251 | 3
31 | 7
3
Program massiv2;
type
mas = array [1 .. 100] of integer;
var
a: mas;
i, n, min, Max, b: integer;
begin
write('n=');
readln(n);
for i := 1 to n do
begin
write('a[', i, ']=');
readln(a[i]);
end;
Max := a[1]; min := a[1];
for i := 1 to n do
begin
if a[i] > Max then
Max := a[i];
if a[i] < min then
min := a[i];
end;
b := Max - min;
writeln(b);
writeln;
readln;
end.
//Pascal ABC.NET 3.1 сборка 1219
Var
rm,rb,s:real;
begin
readln(rm,rb);
if rm>rb then
begin
writeln('Внутренний радиус больше внешнего');
swap(rm,rb);
end;
s:=pi*(sqr(rb)-sqr(rm));
writeln('S=',s);
end.
Пример ввода:
7
4
Пример вывода:
Внутренний радиус больше внешнего
S=103.672557568463