Составьте программу, которая осуществляет ввод в массив с клавиатуры размер 5 файлов в байтах ( от 100 до 9000 байт) и преобразует значения, превышающие 1024 байт, в килобайты.результат выводится в строку. в pascal abc
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.
a,b:integer; d:string[45]; begin SetConsoleOutputCP(1251); writeln('Введите число в диапазоне от 1 дo 100'); write('a='); readln(a); b:=a mod 10; a:=a div 10; case b of 0: d:=''; 1: d:='I'; 2: d:='II'; 3: d:='III'; 4: d:='IV'; 5: d:='V'; 6: d:='VI'; 7: d:='VII'; 8: d:='VIII'; 9: d:='IX'; end; b:=a mod 10; a:=a div 10; case b of 0: d:=''+d; 1: d:='X'+d; 2: d:='XX'+d; 3: d:='XXX'+d; 4: d:='XL'+d; 5: d:='L'+d; 6: d:='LX'+d; 7: d:='LXX'+d; 8: d:='LXXX'+d; 9: d:='XC'+d; end; b:=a mod 10; a:= a div 10; case b of 0: d:=''+d; 1: d:='C'+d; end; writeln('B Римской системе счисления ' ,d); readln; end.
Program project1; uses crt,math; var s:real; i,j,f:real; a:integer; begin writeln('vvedite 1 chislo ');readln(i); writeln('vvedite 2 chislo ');readln(j); writeln('vvedite 3 chislo ');readln(f); s:=i; if j<s then s:=j; if f<s then s:=f; if s<0 then begin if i<0 then inc(a); if j<0 then inc(a); if f<0 then inc(a); writeln('kolichestvo otricatelnix ',a:2); end else begin if i>0 then i:=i*-1; if j>0 then j:=i*-1; if f>0 then f:=i*-1; end; writeln('min chislo ',s:2:0); readln; 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.