Program z1;
var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
begin
readln(a[i]);
if a[i] mod 9 =0 then a[i]:=-5;
end;
for i:=1 to 12 do writeln(a[i]);
end.
13,5 Мбайт = 13,5*1024 Кбайт = 13,5*1024*1024 байт = 13,5*1024*1024*8 бит
Объем памяти для кодирования одного символа:
13,5*1024*1024*8 / (2048*48*72) = 16 бит (двоичных разрядов)
по моему все правильно , надеюсь ты все поймешь
Приготовление плова
1. Свинину моем, режем на небольшие кусочки.
2. Рис моем, заливаем водой.
3. Лук чистим, режем полукольцами.
4 Морковь чистим, режем соломкой.
5. В казане разогреваем растительное масло,
6 поджариваем лук.
7 добавляем мясо
8 обжариваем на сильном огне со всех сторон.
9 добавляем морковь.
10 Жарим еще 10 минут
11. Солим,
12перчим,
13заливаем кипятком, чтобы покрыло сверху,
14тушим 20 минут на небольшом огне под крышкой.
15. Зубчики чеснока равномерно раскладываем на мясо.
<span>16. Сливаем с риса воду и засыпаем его сверху на мясо.
17Доливаем кипятка столько, чтобы покрыло рис.
18Тушим на медленном огне под крышкой до готовности риса (около часа). При необходимости можно долить немного кипятка.</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var s1:=new Stack<integer>;
var s2:=new Stack<integer>;
foreach var e in Range(1,10) do s1.Push(e);
s1.Println;
foreach var e in Range(20,25) do s2.Push(e);
s2.Println;
foreach var e in s2.Reverse do s1.Push(e);
s1.Println
end.
<u><em>Тестовое решение:</em></u>
10 9 8 7 6 5 4 3 2 1
25 24 23 22 21 20
25 24 23 22 21 20 10 9 8 7 6 5 4 3 2 1
