Прикреплена фотография только 6 задания, поэтому решил только его.
Кои-8 - 1 символ = 8 бит
160 бит / 8 бит симв = 20 симв
1)Органолептический
2)Тактильный
3)Визуальный
4)Звуковой
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.
<span>это где хранится кеш помоему</span>