Чтобы обойтись без калькулятора, будем пользоваться степенями двойки (все равно переводить потом в килобайты или мегабайты).
1. Определим количество символов на странице
40×64 = 4×10×2⁶ = 2²×10×2⁶ = 10×2⁸
2. Определим количество символов в статье
32×10×2⁸ = 2⁵×10×2⁸ = 10×2¹³
3. В КОИ-8 каждый символ кодируется 8 битами, т.е. 1 байтом.
Объем статьи будет равен 10×2¹³ байт.
4. Переведем в килобайты, зная что 1 Кбайт = 2¹⁰ байт.
10×2¹³/2¹⁰ = 10×2³ = 10×8 = 80 Кбайт
<u>Ответ: 80 Кбайт</u>
Var
n,d,e:integer;
begin
Write('Введите двухзначное число: '); Read(n);
d:=n div 10; e:=n mod 10;
Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.
<em><u>Тестовое решение:</u></em>
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92
Ответ:
a = int(input())
for i in range(a):
b = input()
c = 0
d = True
e = 0
f = False
g = False
h = '\''
for j in b:
if j == '#' and not f:
g = True
break
elif j != ' ':
if d:
print(' ' * c, end='')
elif c > 0:
print(' ', end='')
c = 0
print(j, end='')
if(j == '\"' or j == '\'') and e % 2 == 0:
if f and j == h:
f = False
else:
f = True
h = j
if f:
d = True
else:
d = False
if j == '\\':
e += 1
else:
e = 0
else:
c += 1
r = j == ' '
if g and c > 1:
print(' ', end='')
if i < a - 1:
print()
1
Объяснение:
Сканер т.к. только он может вывести информацию из данных перечисленных)))
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.