Ответ:
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.
Begin
var a: integer;
begin
if a mod 2 = 0 then writeIn('Высказывание верно');
else writeIn('Высказывание неверно');
<span>end. </span>
1)9*1024= 9 216 байт
2)4*1024*1024= 4 194 304 байт
3)41*1024*8= 335 872 бит
4)бод - опечатка
5)t=204 сек
V=204 Кб
u=v/t = 1 кб/сек
6)V=13 876 432 бит
u=8941 бит/сек
t=V/u=1552 сек =25 мин 52 сек
Во-первых, экономия памяти.
Во-вторых, надежное хранение копий нужной информации.