Проверено в PascalABC.NET
Всё хорошо работает(Скриншот):
var
s1 : integer; // сумма четных чисел
s2 : integer; // сумма всех чисел
begin
for var i := 50 to 120 do begin
if i mod 2 = 0 then s1 += i;
s2 += i;
end;
writeln('сумма четных чисел = ', s1);
writeln('сумма всех чисел = ', s2);
end.
program exs;
var a : array [1..1000] of integer;
n, i : integer;
procedure qsort(l, r: integer);
var i, j, key, buf : integer;
begin
i := l;
j:= r;
key:=a[(l+r) div 2];
repeat
while a[i] < key do inc(i);
while a[j] > key do dec(j);
if i<=j then begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
inc(i);
dec(j);
end;
until (i>j);
if (l < j) then qsort(l, j);
if (i < r) then qsort(i, r);
end;
begin
readln(n);
for i:= 1 to n do begin
read(a[i]);
end;
qsort(1, n);
for i:=1 to n do begin
write(a[i], ' ');
end;
end.
88 бит=11байт
Ответ:11 байт.
Число заносите в ячейку А1 в ячейку В1 пишете формулу =A1*((A1>=850)*0,10+(A1>=6000)*0,05)
во вложении экселевский файлик с решением