// проверялось в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
x, y: real;
begin
x := 1;
y := x * x * x - 3 * exp(x) + 8;
Println('При x =', x);
Println('y = x³ - 3eˣ + 8 =', y);
end.
Примечание: в строке, выводящей на экран значение игрек, использованы символы Юникода.
Если они не поддерживаются в вашей версии Паскаля, можно оставить в строке только Println('y =', y);
1) 56(10) = Х(2)
56₁₀ = 111000₂
2) 56(10) = Х(8)
56₁₀ = 70₈
3) 56(10) = Х(5)
56₁₀ = 211₅
4) 23С(16) = Х(10)
23C₁₆ = 572₁₀
23C₁₆ = 2 * 16² + 3 * 16¹ + 12 * 16⁰ = 2 * 256 + 3 * 16 + 12 * 1 = 512 + 48 + 12 = 572₁₀
Const z = 50;var A:Array[1..z,1..z] of integer;n,i,j:integer;beginwrite('Введите размер массива ');readln(n);for i:=1 to n dobeginfor j:=1 to n dobeginA[i,j]:= random(100)-50;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i mod 2 =0 thenwrite(A[i,j]:4);end;writeln;<span>end;</span>