№1
var a, b, k, i:integer;
begin
k:=0;
readln(a);
for i:=1 to 9 do begin
readln(b);
if a=b then k:=k+1;
end;
writeln('Ответ:', k);
end.
№2
var a, k, i:integer;
begin
k:=0;
for i:=1 to 12 do begin
readln(a);
if a mod 5=0 then k:=k+1;
end;
writeln('Ответ:', k);
end.
смотри эта задача похожа на комбинаторную)
1ый вопрос:
на первом месте есть 3 варианта буквы, на втором тоже 3, на третьем 3
=> всего слов 3 * 3 * 3 = 27
2ой:
1 - ая буква - м, => это как минимум 10-ое слово (т.к. в предыдущих 3 * 3 словах первая - и)
при этом 10 слово - мии => 11 слово - МИМ; 12 cлово - МИР;
3ий:
1-ая буква -Р это как минимум 19 слово (предыдущие 2 * 3 * начинаются на и или м)
19 слово - РИИ => 21 - PИМ
Надо записать расстояние на пересечении слов.
Вроде вот так
При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит, при использовании 2 цветов - log(2)2 = 1 бит.
70 байт = 70*8 бит
Пусть K - количество точек изображения. Тогда 8*K - 1*K = 70*8 ⇒ K = 80
Размер исходного файла = 8*80 = 640 бит = 80 байт