1Гб=1024Мб, 1024 умножить на 16, и разделить на 700 =23
Дано: N=256, а=15, в=32, с=64
Найти: I
I= k*i, где k- количество символов в тексте, i - количество бит на символ
N=2^i, где N- количество символов в алфавите, 256= 2^i,
отсюда i= 8
k= a*b*c= 15*32*64= 30720 символов
I=30720*8= 245760 бит = 30720 байт
2)E:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
Program Z_n;
var a,b:integer;
Begin
Readln(a);
Readln(b);
If a>b then begin write(b,' '); writeln(a); end
else begin write(a,' '); writeln(b); end;
end.
P.s Числа вводите через enter( Ввели число, нажали enter, потом ввели второе число)
Объяснение:
во вложении.................
var a:integer;
begin
readln (a);
if (a div 10 + a mod 10) mod 6 = 0 then writeln('Сумма цифр числа кратна 6')
else writeln ('Сумма цифр числа не кратна 6');
if a div 10 > a mod 10 then writeln('Цифра десятков числа больше цифры единиц числа')
else writeln ('Цифра десятков числа меньше цифры единиц числа');
if a mod 10 = 6 then writeln('Число оканчивается цифрой 6')
else writeln ('Число не оканчивается цифрой 6')
end.