Решите 12 , должна быть блок схема​

Отмечено как нарушение через stoker ( W: 0% T: 4 )

Причина: смотри (^ этот символ означает степень, например 3^2 = три в квадрате или три в степени два) :
2,1 ГБайт * 90% = 1,89 ГБайт
1,89 ГБайт = 1,89 * 2^10 МБайт
1,89 ГБайт = 1,89 * 2^20 КБайт
1,89 ГБайт = 1,89 * 2^30 Байт

При сохранении текста обычно используется кодировка ASCII (26+26+33+33+10+спец.символы ~= 256 => 1 символ занимает 8 бит то есть 1 Байт)

Таким образом, из условий задачи мы имеем, что скорость записи составляет 200 символов * 1 Байт = 200 Байт/ минуту

200 Байт представим в виде 100 * 2

Теперь 3 класс S=t*v => t=S/v
Дано:
s=1,89 * 2^30 КБайт
v=100*2^1
t - ?

Решение:
t=(1,89 * 2^30) / (100*2^1) = 0,0189 * 2^29 (минут)

Округлив - получается где-то 19 лет и 4 месяца (19,358 лет)

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.