1. 40960 бит/8 = 5120 байт /1024= 5 Кбайт
2. ДВГАБ
3. Кол-во страниц = Объем текста (в битах) /кол-во строк*кол-во символов*объем 1 символа (в битах) = (20*1024*8)/40*64*16= 4 страницы
4. С:/Опрос/7класс/Самостоятельная работа.doc
5. Всего пикселей= 150*40 = 6000, в 16-цветной палитре на каждый пиксель приходится 4 бита, значит
объем картинки: 6000*4 бит = 24000 бит
скорость передачи данных: 24000 бит/5 сек = 4800 бит/сек = 600 Байт/сек
Uses crt;
Var
mas:array[1..10, 1..10] of integer;
i,k,minln,pr:integer;
Begin
minln:=0;
for i:=1 to 10 do
for k:=1 to 10 do
mas[i,k]:=random(10)+1;
for i:=1 to 10 do begin if minln>0 then break; pr:=0;
for k:=1 to 10 do begin if (mas[i,k] mod 2 = 0) then pr:=pr+1;
if (pr = 10) then minln:=i;
end; end;
Writeln('Минимальный номер строки с чётными числами - ',minln);
Writeln('Вот она');
for k:=1 to 10 do write (mas[minln,k],' ');
<span>End.</span>
program raf105;
var abc,a,b,c:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
c:= abc mod 10;
b:= (a+c) mod 10;
abc:= a*100 + b*10 + c;
writeln('Вывод: ',abc);
end.
<em><u>Язык PascalABC</u></em>
Да какой угодно цвет(т.к. биты на экране могут составить любой цвет)(это примерный ответ я не уверен точно)
Эх, что-то мудрено получилось
переменных многовато