Var
x, y: real;
begin
Write('Введите х: ');
Readln(x);
if x < 1 then y := 2 * x - 5
else y := x * x * x - 2 * x;
Writeln('y=', y)
end.
А1. С какого знака начинается ввод формулы в ЭТ? (3) =
А2. С помощью какой формулы можно определить частное от деления содержимого ячеек А1 на В1? (2) =А1/В1
А3. С помощью какой функции можно определить среднее арифметическое диапазона ячеек А1:В3 (2) =СРЗНАЧ(А1:В3)
А4. Какой вид имеет в ЭТ выражение
(3) 5*(A2+C3)/(3*(B2-D3)) -- знаменатель должен быть в скобках, знаки умножения написаны явно
B1. Дан фрагмент ЭТ. Найдите сумму значений...
B2. =3*C2^A1/(4*B1*A1)+32*C2*B1^4
//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
m = 99;
var
n, s, d, i, j: integer;
A, B: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.