//PascalABC.NET 3.2 сборка 1318
Var
n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.
Пример ввода:
234
Пример вывода:
423
Для начала мы переведем Iобьем статьи в биты 2мбайта=2048кбайт=2,097,152байт=16,777,216 бит
После этого переводим 2 байта в бит ;2байта=16 бит
Потом нам надо найти какой обьем 1 страницы
Для это надо "строки×символы×каждый символ сколько кодируется"
Iстраница Iст.=32×64×16=32,768 бит
Значит 32,768 бит это 1 страница
Теперь найдем сколько страниц для этого мы Iобьем статьи разделим на 1 страницу
16,777,216÷32,768=512 значит будет 512 страниц
Теперь отнимаем 2 страницы по условию задачи будет 512-2=510 страниц , после этого находим сколько 510 страниц будет в битах т.е
Iобьем статьи после редактирования=510×32,768=16,711,680 бит
А дальше переводим в байты и в кбайты
16,711,680÷8=2,088,960 байт и из байт в кбайты
2,088,960÷1024=2,040 кбайт
Ответ:<span>информационный объём статьи 2,040 Кбайтах после редактирования.
Вот и вся задача</span>
1.
Var
a,n:integer;
Begin
write('Введите число n ');
Readln(n);
while a<=n do
Begin
write(a,' ');
a:=a+1;
End;
End.
2.
Var
a,n,d:integer;
Begin
d:=2;
write('Введите число n ');
Readln(n);
while a<n do
Begin
write(d,' ');
d:=d+2;
a:=a+1;
End;
<span>End.
</span>3.
Var
a,b:integer;
Begin
write('Введите числа a и b: ');
Readln(a,b);
while a<=b do
Begin
writeln(a,'^2 = ',sqr(a),' ');
a:=a+1;
End;
<span>End.</span>
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),1,27); a.Println;
var s:=a.Where((x,i)->i.IsEven);
Writeln('Cумма элементов с нечетными номерами: ',s.Sum);
Writeln('Произведение элементов с нечетными номерами: ',
s.Aggregate(BigInteger(1),(x,y)->x*y));
end.
<u>Пример</u>
n= 25
13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27
Cумма элементов с нечетными номерами: 183
Произведение элементов с нечетными номерами: 167343326631936