Меню "Пуск" или Главное меню<span> системы Windows</span>
SCREEN 12
RANDOMIZE TIMER
FOR I = 1 TO 500
x = INT(RND * 639) + 1
y = INT(RND * 479) + 1
c = INT(RND * 15) + 1
PSET (x, y), c
NEXT I
END
2^1024= 100....000 2(cc) - 1 и 1024 нуля
2^1000 = 100....000 (2cc) - 1 и 1000 нулей
2^1000 -1 = 111...111 (2cc) - 1000 штук единиц
2^1024 + (2^1000 - 1) = 100...000 +111....111 (2cc) =100...111...111 (2cc) -
- всего 1024 разряда (цифр 1 и 0)
1024 (общее количество цифр) - 1001 (единиц) =23 (нуля) <---ответ
<span><span>uses crt;
const n=7;
var sr:real;
i:integer;
a:array[1..n] of integer;
begin
clrscr;
sr:=0;
writeln('Vvedite temperaturu za kajdyi den ');
for i:=1 to n do begin
readln(a[i]);
sr:=sr+a[i];
end;
sr:=sr/7;
write('Srednya temperatura = ',sr:0:2);
readkey;
end.</span></span>