Консольное приложение:
const n=4;
var a:array[1..n,1..n] of real;
k,i,j:integer;
begin
writeln('1:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10*random;
write(a[i,j]:4:1);
end;
writeln;
end;
write('k = ');
readln(k);
writeln('2:');
for j:=1 to n do a[k,j]:=a[k,j]/a[k,k];
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4:1);
writeln;
end;
end.
Пример: <span>1:
1.4 0.8 5.3 9.6
6.7 2.4 5.1 4.0
1.9 6.6 0.9 4.0
4.1 6.1 2.6 0.9
k = 2
2:
1.4 0.8 5.3 9.6
2.8 1.0 5.1 4.0
1.9 6.6 0.9 4.0
4.1 6.1 2.6 0.9
</span>
512Кб = 524288 байт = 4194304 бит
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 Байт/сек
<span>2048 байт или 2 килобайта. </span>
Var a, b:real;
begin
writeln('Введите a, b');
readln(a,b);
if a=b then writeln('Ответ: ',-b)
else if a>b then writeln('Ответ: ', a*b+1)
else writeln('Ответ: ', (a-5) /b);
end.