Составьте программу, которая осуществляет ввод в массив с клавиатуры размеров 5 файлов в байтах (от 100 до 9000 байт) и преобразует значения, превышающие 1024 байт, в килобайты. результат выводится в строку.
110
321
Ответы на вопрос:
var
a: array[1..5]of integer;
i: integer;
begin
for i: =1 to 5 do read(a[i]);
for i: =1 to 5 do write(a[i],' ');
writeln;
for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);
writeln;
end.
Популярно: Информатика
-
linvliv07.03.2021 00:46
-
steelersumyp06wkp15.06.2021 19:12
-
KASPE7206.04.2021 14:17
-
VladOZmsl23.06.2022 11:19
-
УмнаяДебилка04.02.2023 14:22
-
tanyaNat8201.01.2020 19:46
-
89112897334artem113109.03.2020 08:43
-
катя3001200513.06.2020 21:11
-
liliverbovetska25.10.2020 00:55
-
lera0886212.02.2020 10:56