В массив вводят размеры n файлов в байтах от 100 до 9000. Преобразовать все значения превышающие 1024 байта в килобайты

В массив вводят размеры n файлов (в байтах) от 100 до 9000. Преобразовать все значения превышающие 1024 байта в килобайты

  • var a:array[1..250] of string; size:real; i,n:integer; text:string;

    begin

       writeln('daite N'); readln(n);

       for i:=1 to n do

         begin

            readln(size);

            if (size>1024) or (size=1024) then

                begin

                   size:=size/1024;

                   str(size:0:2,text);

                   a[i]:=text+' kb';

                   text:=''; size:=0;

                end else

             begin

                  str(size,text); a[i]:=text+' bytes'; text:=''; size:=0;

             end;

          end;

      for i:=1 to n do write(a[i],' '); readln;

    end.


See also: