При рисовании пятиконечной звезды Черепаха совершает два оборота, т.е. 720 градусов.Делим 720 на пять поворотов и даём поправку в 40 градусов.x = 720/5 + 40 = 144 + 40 = 184.<span>Подходит также второй вариант угла: 360-144 = 216, который с поправкой на 40 градусов даёт замечательное число 256.</span>
Номер 3
c=b-a
c
номер 4
ввод a,b
z
Запишем условие задачи:
Поскольку в сообщениях одинаковое количество символов, то К1=К2. Соотношение количества информации можно записать как I1=1.5*I2. Общее кол-во символов в алфавите обозначается буквой N, по условию N1<=10, N2<=10.
Решение: I1=K1*i1; I2=K2*i2; Подставим в условие I1=1.5*I2 значения I1 и I2. Получаем K1*i1=1.5*K2*i2
Сократим в обеих частях уравнения К1 и К2, у нас останется
i1=1.5*i2
По условию мощности обоих алфавитов не превышают число 10, запишем это так
10>=2 в степени i1
10>=2 в степени i2
Предположим, что i2=1 бит, тогда i1=1.5 бита (а это противоречит условию)
Предположим, что i2=2 бита, тогда i1=3 бита -это и есть ответ задачи
S:=1; - переменной s присваивается начальное значение 1
<span>for i := 10 to 99 do - начало цикла с параметром, i - параметр цикла, 10 - начальное значение параметра, 99 - конечное значение параметра. Т.е. цикл будет выполняться 90 раз, параметр i будет принимать последовательно значения 10, 11, 12, ..., 99.
</span>if (i mod 13 = 0) and (i mod 2 <> 0) then - условный оператор. В условии используется операция mod - определение остатка от целочисленного деления. (i mod 13 = 0) - это условие будет выполняться для чисел, которые делятся на 13 без остатка; (i mod 2 <> 0) - это условие будет выполняться для чисел, которые делятся на 2 с остатком (это нечетные числа). Таким образом, условие <span>(i mod 13 = 0) and (i mod 2 <> 0) будет иметь значение true для нечетных чисел, которые делятся на 13 без остатка (это 13, 39, 65, 91).
</span>Программа в целом вычисляет произведение нечетных чисел, которые <span>делятся на 13 без остатка.
(В программе есть ошибка. Тип переменной s должен быть integer.)</span>
Program mass;
uses
crt;
var
mas: array [1..5, 1..6] of integer;
mas_od: array[1..6] of integer;
i, j: integer;
begin
randomize;
for i := 1 to 5 do
for j := 1 to 6 do
mas[i, j] := random(10)-5;
for i := 1 to 5 do
begin
for j := 1 to 6 do
write(mas[i, j]:4);
writeln;
end;
writeln('----------------------------');
for i := 1 to 5 do
begin
mas_od[i] := 1;
for j := 1 to 6 do
begin
if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
mas_od[i] := mas_od[i] * mas[i, j];
end;
end;
for i:=1 to 6 do write(mas_od[i]:4);
writeln;
end.