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

аня343213 аня343213    3   01.03.2019 23:30    2

Ответы
DARINASTAR98 DARINASTAR98  23.05.2020 19:03

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.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика