опустить перо
нц 4 раз
сместиться на вектор (0,1)
сместиться на вектор (2,1)
сместиться на вектор (2,-1)
сместиться на вектор (0,-1)
сместиться на вектор (-2,-1)
сместиться на вектор (-2,1)
сместиться на вектор (-2,-1)
сместиться на вектор (2,-1)
сместиться на вектор (2,1)
сместиться на вектор (2,1)
кц
поднять перо
сместиться на вектор (-16,-3)
опустить перо
нц 4 раз
сместиться на вектор (0,1)
сместиться на вектор (2,1)
сместиться на вектор (2,-1)
сместиться на вектор (0,-1)
сместиться на вектор (-2,-1)
сместиться на вектор (-2,1)
сместиться на вектор (-2,-1)
сместиться на вектор (2,-1)
сместиться на вектор (2,1)
сместиться на вектор (2,1)
кц
Объяснение:
var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Дано 16 слов состоящих из 6 символов. считая, что каждый символ кодируется одним байтом, какое минимальное количество бит понадобится для кодирования всех слов? с решением
1 слово - 1*6=6 байт
в одном байте 8 бит
6*8=48 бит - одно слово
16*48=768 бит 16 слов
ответ 768 бит