<span><span>5930,145 </span></span>руб. __________________________________________________
Если 4800 бод это 4800 бит/с, то
4800*20=96000 бит будет передано за 20 с
96000/8=12000 символо нужно передать (т.к. КОИ-8 8-ми битная кодировка)
12000/1500=8 страниц
Вес страницы текста в юникоде = 2048 * 2 байт = 4096 байт = 4Кб
Вес страницы текста в 1байтной = 2048 * 1 байт = 2048 байт = 2Кб
Вес страницы с рисунком = 1024 * 1024 * 16 бит = 16777216 бит = 2048Кб
Вес страницы с уменьшенным рисунком = 1024 * 1024 * 15 бит = 15 728 640 бит = 1920Кб
Теперь нам надо узнать сколько рисунков и сколько текста. Пусть рисунков будет х, тогда текста будет (520-х). Составляем уравнение
1920х + 4(520-х) = 2048х + 2(520-х)
2(520-х) = 128х
1040 - 2х = 128х
1040 = 130х
х = 8
Вес буклета = 2048 * 8 + 4 * (520 - 8) = 18 432 Кб = 18Мб
Var x, i: integer;
a: array [0..9] of integer;
begin
for i := 0 to 9 do
begin
readln(a[i]);
if (a[i] < 0) then x := x + a[i];
end;
writeln(x);
<span>end.
Вот так это сделать можно)</span>
Program s;
var
a,b:integer;
begin
readln(b);
for a:=1 to b do
if a mod 2 = 0 then writeln(a*a) else writeln('-1');
end.