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

Question

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

Answer 1

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.