У файла "index" поменяй формат с "txt" на "html" и закинь все вместе в какую-нибудь папку.
В основном просто перемножить
Вес файла = вес одного символа * кол-во символов в файле
1 38 * 2 = 76 байт
2 64 * 48 * 4 * 8 = 98304 бита = 12288 байт = 12 кбайт
(кол-во симв) * вес символа
3
k - кол - во символов, тогда
2048 + 8 * k = 16 * k
объем первоначального равен 8k
из уравнения следует что 8k = 2048 бит = 256 байт
Рекомендую самый простой смарт телевизор к которому необходимо купить не дорогую внешнюю клавиатуру с USB входом, т.е. с разъемом как у флешки.
program OCEHKA;
uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
write('Введите оценку- ');
ReadLn (a);
b:=a;
case b of
1:s:='Плохо';
2:s:='Неудовлетворительно';
3:s:='Удовлетворительно';
4:s:='Хорошо';
5:s:='Отлично';
end;
WriteLn (s);
ReadLn(s);
end.
матрица заполняется случайно
программа на pascalabc
Var
max,min,mina,minb,maxa,maxb,a,b,c: integer;
mas: array[1..3,1..3] Of integer;
Begin
writeln('до :');
For a:=1 To 3 Do
For b:=1 To 3 Do
Begin
mas[a,b] := random(100);
If mas[a,b]>max Then
Begin
max := mas[a,b];
maxa := a;
maxb := b;
End;
If (min=0)Or(mas[a,b]<min) Then
Begin
min := mas[a,b];
mina := a;
minb := b;
End;
write(mas[a,b],' ');
End;
c := mas[maxa,maxb];
mas[maxa,maxb] := mas[mina,minb];
mas[mina,minb] := c;
writeln;
writeln('после :');
For a:=1 To 3 Do
For b:=1 To 3 Do
write(mas[a,b],' ');