Исходный объем: 1 Мб = 1024 Кб
Статья уменьшилась на 4 * 32 * 64 = 2^2 * 2^5 * 2^6 = 2^13 cимволов, и, поскольку на каждый символ по условию отводится 2 байта, её размер уменьшился на 2 * 2^13 байт = 2^14 байт = 2^4 Кб = 16 Кб
Объём отредактированной статьи 1024 Кб - 16 Кб = 1008 Кб
1) во 2 строчке будет:
=B2+A2 =$B$1+A2 =$B2+$A2 =B$1+$A2
в 3 строчке будет:
=B3+A3 =$B$1+A3 =$B3+$A3 =B$1+$A3
2) а) 35 б) 9 в) 7 г) 5
3) 1) B3*C3
2) СУММ(D3:D6)
Program is_ev_2d;
var n: integer;
begin
write('Введите число: ');
readln(n);
if (n mod 2 = 0) and (n > 9) and (n < 100) then
writeln(n, ' чётное двузначное')
else
writeln(n, ' не чётное двузначное')
end.
Цикл в цикле ваша тема:
program pin;
var
i, j, cm: Integer;
povtor: Boolean;
const
m: array[1..10] of Integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2);
begin
cm := 0;
for i := 1 to 10 do
begin
povtor := False;
for j := 1 to 10 do
begin
if (i <> j) and (m[ i ] = m[ j ]) then
begin
povtor := True;
Break;
end;
end;
if not povtor then cm := cm + 1;
end;
WriteLn(cm);
<span>end.</span>