1 =3,4*x+y
2 =(x+y)*z
3 =0,8*x+0,9*y-x*y
4 =(x+z)*y+0,1*z
5 =(x-z)*z+y*x
6 =(15*x^2-(7/12)*y)/(18*y+x^2)
7 =(40*y^3+(4/9)*x)/(6*x^2-18*x*y)
8 =(30*(x^3-(5/6)*y))/(5*(x^3-6*y))
Если площадь в ячейке А1, то вот так:
=ЕСЛИ (А1<100;500;ЕСЛИ (А1<200;700;800))*B2
<span>Можно еще с помощью ВПР, но тогда нужно делать дополнительную таблицу
</span>
=B2*(500+200*(B2>100)+100*(B2>=200))
<span>Это если площадь стоит в ячейке B2.
</span>
Методом сортировки выбором:
<span />
543261
--- 1
143265
--- 2
123465
--- 3
123456
<span />
Следовательно, за 3 перестановки.
Var
a:array [1..1000] of integer;
i,n,sum:integer;
begin
randomize;
write('Введите максимальное число массива:');
Readln(n);
begin
for i:=1 to n do
a[i]:=random (20)+20;
end;
Writeln('Массив состоит из следующих чисел:');
for i:=1 to n do
write(' ',a[i]);
Writeln();
sum:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then sum:=a[i]+sum;
Задание несколько расплывчатое, но скорее всего, подойдет такое решение:
var r,d,p: real;
begin
writeln('введите радиус');
readln(r);
d:= 2*pi*r;
p:=pi*r*r;
writeln('площадь = ',p);
writeln('длина окружности = ',d)
end.