Составьте пожалуйста программу, которая осуществляет ввод в массив с клавиатуры размер 5 файлов в байтах ( от 100 до 9000 байт) и преобразует значения, превышающие 1024 байт, в килобайты.результат выводится в строку. В Pascal ABC
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
8 лет назад
9 лет назад