Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.
350*200=70000 пикселей
65Кбайт=65*1024=66560 байт=66560*8=532480бит
532480/70000= 7.6 т.е 7 целых бит на пиксель
с помощью 7 бит можно закодировать 2^7=128 цветов
125(8)
+
375(8)
_______
522(8) 2(8) = 10(2) 5(8) = 101(2) -> 522(8) = 101 010 010(2)
237(8)
+
712(8)
________
1151(8) 1(8) = 001(2) 5(8) = 101(2) -> 1151(8) = 1 001 101 001 (2) - на каждую цифру разряда в восьмиричной системе приходится 3 бита в двоичной системе
4. С:\учёба\математика\ГИА.
С:\учёба\математика
С:\учёба\математика\каталог1
С:\учёба\математика\каталог1\каталог2
подходит:
С:\учёба\математика\2013\Расписание
Ответ: 4
5.
1) afeget.doc
2) ufegelian.dim
3) zfegininal.disk
var a, b, c, x: integer;
begin
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Введите C: ');
readln(c);
if a > b then
x:=a
else
x:=b;
if x > c then
writeln('Наибольшее число: ', x)
else
writeln('Наибольшее число: ', c);
end.