var
A,B,C,D,L,S: integer
F,K,Q:integer;
begin
writeln("введите A");
readln(A);
writeln("введитеB");
readln(B);
writeln("введитеC");
readln(C);
writeln("введитеD");
readln(D);
writeln("введите M");
readln(M);
writeln("введите N");
readln(N);
writeln("введите L");
readln(L);
writeln("введите S");
readln(S);
F:=A*4 *B - (C*D+M*N);
K:=0,01L*S;
Q:=F/K;
writeln("кол-во рулонов = ",Q );
end.
383 / 256 = 1 * 256 + 127 => итог: 1
127/ 16 = 7 * 16 + 15 => итог: 17
15 / 1 = 15 = F => итог 17F
Ответ: 17F
<span>var a,s,mn:real;
n,i:integer;
begin
clrscr;
repeat
write('Сколько чисел ввести n>0 n=');
readln(n);
until n>0;
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
write('a=');
readln(a);
if i=1 then mn:=a
else if odd(i)and(a<mn) then mn:=a;
if(i mod 2=0)and(a>0) then s:=s+a;
end;
writeln('Сумма положительных с четными индексами=',s:0:2);
writeln('Минимальный с нечетным индексом=',mn:0:2);
readln
end.</span>
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.