var i,n,b:integer;
a:array [1..100] of integer;
begin
Randomize;
write('Сколько элементов в массиве: ');
readln(n);
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
b:=b+a[i];
end;
writeln(' ');
write('Сумма всех элементов массива: ',b);
end.
A1:=a;
a:=a*a; //a^2
a:=a*a; //a^2*a^2 = a^4
a:=a*a*a1; // a^4*a^4*a = a^9
Program asd;
Uses crt;
Var x,a:integer;
begin
For x:=1 to 10 do
begin
a:=sqr(sqrt(x)+sqrt(x));
writeln (a);
end;
end.
2.
Program asd;
Uses crt;
Var x:integer;
Begin
For x:=20 to 50 do
if x mod 10=6
then writeln (x);
end.
Получаем 2 уравнения:
1) 3x+2=4, где 3x+2>0, 3x>-2; x>-2/3
3x=2; x=2/3;
2/3>-2/3 - верно
2) -3x-2=4, где x<-2/3
3x=-6
x=-2,
-2<-2/3 - верно
2 корня: -2 и 2/3
Ответ: б
x = 29
y = 20
Программа:
var x, y: integer;
begin
x := 13; y := 2;
while y < 12 do
begin
if y <= x then
begin
x := x - 3;
y := y * 2;
end
else
begin
y := y - 3;
x := x * y;
end;
end;
writeln(x,' ', y);
end.