"вещественные числа p, b1, ..., bn, которые не превосходят по модулю 105" - К чему это условие? Если это условие включить в код, то вещественное число, такое как 123.45 уже больше модуля 105, а значит либо этого условия нету, раз уж у тебя в примере 123.45 включается в сумму, которая больше p, либо нет условия с модулем.
Я закомментировал условие проверки числа на с модулем 105 и программа работает так, как описано в примере.
Если захочешь добавить условие с модулем, то убери # и поставь табуляцию(несколько пробелов) перед s.append(k)
n = int(input()) while not 1<=n<=1000: #Ввод n, если не входит в диапазон, то ждет ввода снова n = int(input()) s = [] p = float(input()) for i in range(n): k = float(input()) # if k < abs(105): s.append(k) sum = 0 for i in s: if i > p: sum += i print(sum)
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.
"вещественные числа p, b1, ..., bn, которые не превосходят по модулю 105" - К чему это условие? Если это условие включить в код, то вещественное число, такое как 123.45 уже больше модуля 105, а значит либо этого условия нету, раз уж у тебя в примере 123.45 включается в сумму, которая больше p, либо нет условия с модулем.
Я закомментировал условие проверки числа на с модулем 105 и программа работает так, как описано в примере.
Если захочешь добавить условие с модулем, то убери # и поставь табуляцию(несколько пробелов) перед s.append(k)
n = int(input()) while not 1<=n<=1000: #Ввод n, если не входит в диапазон, то ждет ввода снова n = int(input()) s = [] p = float(input()) for i in range(n): k = float(input()) # if k < abs(105): s.append(k) sum = 0 for i in s: if i > p: sum += i print(sum)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.