Регистрация
Nikbooc
22.06.2020 19:59
Информатика
Есть ответ 👍

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

250
354
Посмотреть ответы 2

Ответы на вопрос:

DEN23567893
DEN23567893
4,6(72 оценок)

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.

marinafox253
marinafox253
4,5(12 оценок)
Оптический диск- это носители информации, выполненные в виде дисков, чтение которых ведётся с оптического излучения. различия между cd и dvd: в cd для чтения используется инфракрасный луч, а в dvd используется красный лазер.

Популярно: Информатика