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.
Program n1;
<span>var x,y:real;
</span><span>begin
</span><span>readln(x);
</span><span>y:=round(x);
</span><span>if y=x then writeln('число не дробное')
</span><span>else writeln('число дробное');
</span><span>end.</span>
Ответ:32768
Объяснение:1024•8•1024/256
надо перевести час в минут для удобства
квадратный метр значит метр на метр.
--- если высота 1 метр
n = int(input())
l = int(input())
#вычислить сколько тканей при 1кв. метр
n=n*60 #переводим в минуты
a=n//5
#теперь осталось вычислить с l шириной
print(a*l," при высоте 1 метр")
--- если высота и ширина одно и тоже
n = int(input())
l= int(input())
t = 5 # минут
t=t* (l*l) выисляем сколько надо времени на l квадратный метр
print(n*60//t)# *60 для перевода в минуты