15)Выберите верное оформление условного оператора if (a>b) or (a>c) then writeln( 'a наибольшее')
if (a>b and a>c ) then writeln( 'a наибольшее') else writeln( 'c наибольшее')
if a>b and a>c then writeln( 'a наибольшее') else writeln( 'c наибольшее')
if (a>b) and (a>c) then writeln( 'a наибольшее') else writeln( 'c наибольшее')
if (a>b) and (a>c) then writeln( 'a наибольшее')
if a>b or a>c then writeln( 'a наибольшее') else writeln( 'c наибольшее')
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.
1 - 2812,5 Кбайт
2 - 74 количество
Объяснение:
Чтобы найти объем используем формулу:
Находим его объём:
Находим в байтах, а не в битах так как нам не нужны биты.
Теперь отвечаем на первый вопрос:
Сколько килобайт:
1024 байт = 1 Кбайт, значит
2880000 байт = 2812,5 Кбайт
ответ на первый вопрос: 2812,5 Кбайт
Второй вопрос, сколько таких документов?
Сначала переведем Мбайт в Кбайт(в 1 Мбайт = 1024 Кбайт):
Найдем количество поделив весь объем на один документ:
n - количество( я так обозначил) = 207872 / 2812,5 = 73,9
Так как частичного файла не бывает, округляем вверх(в любой ситуации)
ответ: 74 документа