Число заносите в ячейку А1 в ячейку В1 пишете формулу =A1*((A1>=850)*0,10+(A1>=6000)*0,05)
во вложении экселевский файлик с решением
<span>1)
var n,i:integer;
begin
readln(n);
for i:=1 to n do
if n mod i = 0 then write(i,' ');
readln;
end<span>.</span></span>
Ответ: 1) a<17
if (если) условие then (то) действие выполняется, если условие выполняется (истино) else (иначе) действие выполняется, если условие не выполняется (ложно)
164•8•128•32•64/8•1024•1024=
164•2^7•2^5•2^6/2^10=
164•2^18/2^10=
164•2^8=
164•2^8/2^10=164/4
41Кбайт
1 задача
var a, b, s, i, k:integer;
z:array[1..10] of integer;
begin
s:=1;
For i:=1 to 10 do
begin
z[i]:=random(16)-10;
if z[i]<0 then
begin
k:=sqr(z[i]);
s:=s*k;
end;
end;
For i:=1 to 10 do
begin
write (z[i], ' ');
end;
writeln ();
writeln ('Произведение квадратов равно ', s);
<span>end.</span>