Так?
var c, b:integer; a, v:real;
begin
read(b,c);
a:=30*b/4+c ;
v:=b/a;
writeln(v);
end.
8 серверов за 1 секунду - 4 миллиона.
8*4= 32 миллиона.
все верно.
Анна водопадами озадачился разводами лишаться
можна отримувати гарны оцынки, здобувапти знання!
Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a<0 then k:=k+1;
end;
write(k);
end.