Решение привожу в .cpp файле, каждый пункт реализован в отдельной функции.
<em>Замечание 1</em>: Для заданий типа "Найти произведение цифр, удовлетворяющих условию", в случае, если подходящих цифр нет, произведение считается равным нулю.
<em>Замечание 2</em>: В задании 2 в случае, если число содержит более 3ех пятерок, считается, что ответ на вопрос "Содержит ли число три цифры 5?" положительный.
<em>Замечание 3</em>: Для пункта 4, в случае, если после удаления 1 и 3 из числа остаются нули или цифр не остается вообще, считается, что итоговое число равно 0. Если оставшиеся после удаления 1 и 3 цифры образуют последовательность, начинающуюся с некоторого количества n нулей, за которыми следует хотя бы одна ненулевая цифра, то эти n нулей не выводятся. Знаки у исходного и итогового числа совпадают, за исключением случая, когда итоговое число равно 0.
12800000000бит=1600000000.0000 байт
Var i, x, s: integer;begin<span> s := 0;</span><span> for i := 0 to 9 do</span><span> begin</span><span> read(x);</span><span> s := s + x;</span><span> end;</span><span> writeln('summa: ', s);</span><span>end.</span>
1 дюйм = 2,54 см, поэтому изображение размером 10x10 дюймов,
в одном квадратном дюйме 600x1200 точек, количество точек на данном изображении 10*10*600*1200 = 72000000 точек = 72*10^6. У каждой точки есть свой цвет, который кодируется 16 битами.
Информационный объем файла = 72*(10^6)*16 бит = 72*2*(10^6) байт =
= 144*10^6 байт
<span>uses graph;
var xc,yc,m,x1,y1:integer;
x,y:real;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=yc div 2;
line(5,yc,getmaxX-5,yc);
line(xc-m,yc+3,xc-m,yc-3);
outtextXY(xc-m,yc+10,'-1');
outtextXY(xc+5,yc+10,'0');
line(xc+m,yc+3,xc+m,yc-3);
outtextXY(xc+m,yc+10,'1');
line(xc,5,xc,getmaxY-5);
line(xc-3,yc-m,xc+3,yc-m);
outtextXY(xc-10,yc-m,'1');
line(xc-3,yc+m,xc+3,yc+m);
outtextXY(xc-15,yc+m,'-1');
setcolor(12);
line(xc-m,yc,xc,yc-m);
line(xc,yc-m,xc+m,yc);
line(xc+m,yc,xc,yc+m);
line(xc,yc+m,xc-m,yc);
x:=-4;
while x<=4 do
begin
y:=0.52*x+0.18;
x1:=xc+round(x*m);
y1:=yc-round(y*m);
putpixel(x1,y1,14);
x:=x+0.01;
end;
readln
end.</span>
