var x,N : integer;
begin
x:= N;
while(N > 0) do
begin
if( N mod 10 >= 2) then begin
writeln('Не двоичное число');
break;
end;
N := N div 10;
end;
writeln(x);
end.
Var a:array[1..100] of integer;
i,p,m:integer;
begin
p:=0;
m:=0;
for i:=1 to 100 do begin
a[i]:=random(-20,20);
if a[i]>0 then p+=1 else
m+=1;
end;
writeln('Положительных - ',p,' отрицательных - ',m);
<span>end.</span>
1)1 (т.к программа выводит наименьшую температуру)
2)7 (т.к программа требует выведения количества дней, в которых температура была меньше или равна 15 градусов)
2^i=128
i=7 бит/симв
11,5*1024=11776 байт
11776*8=94208 бит
94208/7=13458 символа
Дюйм равен примерно 2.5 см
10см/2.5 = 4 дюйма
В каждом дюйме 600 пикселей
600*4 = 2400
1200*4 = 4800
2400*4800 = 11520000 - всего пикселей
2 байт * 8 = 16 бит = 2^4 - значит 1 пиксель = 4 бита
11520000 *4/8 /1024/1024 = 5.5 Мб
Ответ: 5.5 Мб