Найти самую большую цифру трехзначного целого числа через паскаль, , заранее

Var   n,max: longint; begin   writeln('введите трехзначное число: ');   readln(n);   max: =0;   repeat   if (n mod 100)> max then max: =(n mod 100);   n: =n div 100;   until n=0;   writeln('самое большое число в трехзначном числе: ',max);   readln; end.

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

дано:

g= 44,1 кгц= 44100 гц

i= 16 бит

t=2 мин=120 сек

v-?

 

решение:

v=g*i*t

v= 44100гц*16 бит*120 сек= 8467200 бит

v= 8467200/8*1024*1024= 10 мбайт