Школа: управляещий - директор, обьект управления - учающиеся и работники. класс: управляещиц - учитель, обьект управления - учащиеся в классе. самолет: управляющий - летчик, обьект управления - сервомотор. стая волкок: управляющий - вожак, обьект управления - волки. стадо: управляющий - постух, обьект управления - коровы.
1)62.625
2)25.05
3)15.65625
Я набираю номер телефона и он у меня входит или лучше что бы был отпечаток палец его можно поменять.
const
n = 10;
x = 1;
y = 20;
var
arr: array[1..n] of integer;
tmp: integer;
begin
randomize;
write('Массив: ');
for var m := 1 to n do
begin
arr[m] := random(x, y);
write(arr[m], ' ');
end;
for var i := 1 to n do
begin
for var j := 1 to n - 1 do
begin
if (arr[j] < arr[j + 1]) then
begin
tmp := arr[j];
arr[j] := arr[j + 1];
arr[j + 1] := tmp;
end;
end;
end;
writeln();
write('После сортировки: ');
for var i := 1 to n do
write(arr[i], ' ');
end.
//программа находит количество всех делителей числа, включая само число и 1
Program n1;
var x,i,k: integer;
begin
readln(x);
k:=0;
for i:=1 to x do if x div i=x/i then k:=k+1;
write('кол-во целых делителей числа ',x,': ',k);
end.