1. Процессор
2.
3. Оперативная
4. Кэш
5. Внешняя
6. Шина
У вас на фото ничего не видно, вот пару ответов, попытайтесь сделать более чёткую фотографию.
Ответ:
var
NumeralS, NumberS : string;
Numeral, Number : integer;
i, k : integer;
Begin
readln(Numeral, Number);
NumberS := inttostr(Number);
NumeralS := inttostr(Numeral);
for i:=1 to length(NumberS) do
if NumberS[i] = NumeralS then
inc(k);
if k>0 then
writeln(True)
else
writeln(False);
end.