Составьте программу, которая осуществляет ввод в массив с клавиатуры размер 5 файлов в байтах ( от 100 до 9000 байт) и преобразует значения, превышающие 1024 байт, в килобайты.результат выводится в строку. в pascal abc
134
409
Ответы на вопрос:
Var b: array[1..5] of real; i: integer; begin for i: =1 to 5 do begin write('введите размер ',i,'-го файла в байтах: '); readln(a[i]); end; for i: =1 to 5 do if a[i]> 1024 then a[i]: =a[i]/1024; for i: =1 to 5 do write(a[i]: 4: 1); end.
Популярно: Информатика
-
PolinaDudnik08.09.2022 19:56
-
fox37001.12.2020 01:10
-
Zyherpopentruher00709.04.2020 12:39
-
UlianaTir25.11.2022 15:24
-
dfghngh22.10.2022 09:46
-
misa0231as023120.10.2021 08:36
-
34346316531324.03.2020 21:45
-
Tadashimi201617.11.2021 04:56
-
khinmy21.12.2021 08:29
-
Ням111120.11.2020 02:16