Да все теже что и с вещественным только делить нельзя, сложение вычитание умножение, остаток от деления, возведения в степень... и тд
Скорость=512000 бит/с
Время передачи=16 с
Размер файла=512000*16=8 192 000 бит=1 024 000 байт= 1000 Кбайт
FOR15
program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
<span>end.
FOR16
</span><span>program fofgogjoj;
var
<span>i, n: integer;</span>
<span>a, p: real;
</span></span><span>begin
<span>Writeln('Введите число:');</span>
<span>Write(' a = ');</span>
Readln(a);
<span>Writeln('Введите показатель степени (n > 0):');</span>
<span>Write(' N = ');</span>
Readln(N);
<span>Writeln('Все степени числа ', a, ' от 1 до ', n, ':');</span>
<span>p:= 1;</span>
<span>for i:=1 to n do</span>
begin
<span>p:= p*a;</span>
<span>Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
</span><span>end</span>
<span>end.</span></span>
Program qw;
uses crt;
Type
Atlas=Record
country,capital:string;
area,people:real;
end;
ps=File of atlas;
Var f:ps;
z,t:atlas;
Begin
assign(f,'1.dat');
rewrite(f);
z.country:='Латвия'; z.area:=67.7;
z.people:=2.6; z.capital:='Рига';
write(f,z);
z.country:='Литва'; z.area:=65.2;
z.people:=3.4; z.capital:='Вильнюс';
write(f,z);
z.country:='Польша'; z.area:=313;
z.people:=34.8; z.capital:='Варшава';
write(f,z);
z.country:='Украина'; z.area:=603.7;
z.people:=50; z.capital:='Киев';
write(f,z);
z.country:='Россия'; z.area:=17075.4;
z.people:=139; z.capital:='Москва';
write(f,z);
Close(f);
assign(f,'1.dat');
reset(f);
read(f,t);
while not(eof(f)) do
begin
read(f,z);
if t.people/t.area < z.people/z.area then t:=z;
end;
close(f);
writeln('Cтранa с наибольшей плотностью населения:');
writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.