Uses GraphABC;
var n,i,a1,a2,r:integer;
begin
a1:=0;
write('Количество частей: ');
readln(n);
r:=round(360/n);
for i:=1 to n do
begin a2:=a1+r;
if i=n then a2:=360;
Brush.Color := clRandom;
Pie(300,250,200,a1,a2);
a1:=a2;
end
<span>end.

Если ввведено число, на которое 360 без остатка не делится, то один из секторов из-за округления получается больше, чем другие. Устранять это не стал, т.к. это привело бы к усложнению программы.</span>

0 0

3 года назад

Выбери закон алгебры логики. F∨D=D∨F 1)коммутативный закон 2)нет верного ответа 3)дистрибутивный закон 4)закон инверсии ответ о

jbgj909 [1]

1) коммутативный (переместительный)
Логические переменные можно менять местами

0 0

4 года назад

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 2. Программа

kkurt [141]

Var
    n, max, i, d: integer;

begin
    readln(n);
    max := 0;
    for i := 1 to n do
    begin
        readln(d);
        if (d mod 10 = 2) and ((max < d) or (max = 0)) then
            max := d;
    end;
    writeln(max);
end.

0 0

4 года назад

При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 10 символов. Из соображений информацио

EdwardSWAG

Может быть использовано

10 цифр+ 26 строчных букв + 26 прописных + 6 спец символов = 68 символов всего.

Для кодирования 68ми символов достаточно диапазона чисел от 0 до 67

(2^6=64)<67<(2^7=128)

Таким образом необходимо минимум 7 бит на символ.

7*9=63 бита на один пароль.

63*100=6300 битов на 100 паролей.

6300/8 = 787,5 байт.

Округляем в большую сторону - ответ 788 байт

0 0

3 года назад