64 · 64 · 8 · 1024 = 2⁶ · 2⁶ · 2³ · 2¹⁰ = 2⁶⁺⁶⁺³⁺¹⁰ = 2²⁵ бит
2²⁵ / 2³ байт = 2²⁵⁻³ байт = 22²² байт =
= 2²² / 2¹⁰ Килобайт = 2²²⁻¹⁰ Килобайт = 2¹² Килобайт =
= 2¹² / 2¹⁰ Мегабайт = 2² Мегабайт = 4 Мегабайт
<h2>Ответ</h2>
4
Var n,m:integer;
begin
write('Число = '); readln(n);
write('Цифра = '); readln(m);
if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)
then writeln('Цифра есть')
else writeln('Цифры нет');
end.
Пример:
Число = 519
Цифра = 5
Цифра есть