Даны три числа найти максимальное, среднее, минимальное.

надо.

10000 байт перевести в килобайты 

10000 байт перевести в мегабайты (мг)

600000 байт перевести в кигобайт (кб)

решение

1 килобайт = 2^10 = 1024 байт > 1 байт=1/2^10 килобайт

1 мегабайт = 2^20 = 1048576 байт > 1 байт = 1/2^20 мегабайт

приставка киго не существует, по этому принимаю буквенное обозначение кб

тогда

10000 байт = 9,765625 килобайт

10000 байт = 0,00953674 мегабайт

600000 байт = 585,9375 килобайт

program sss;

uses crt;

var s: string;

            i,k,m: integer;

begin

clrscr;

readln(s);

for i: =1 to length(s)-2 do

begin

if ( (s[i] = 'т') or (s[i] = 'т') ) and ( (s[i+1] = 'о') or (s[i+1] = 'о') ) and ( (s[i+2] = 'м') or (s[i+2] = 'м')  then

begin

                k: =1;

                break;

end;

end;

if k = 1 then writeln('да')

else writeln('нет');

readkey;

end.