Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.
Тетрадь какого автора? Уточните задание.
Y=(7*3+4)(2*3-2)
y=25*4
y=100
Ответ:
215
Объяснение:
Видимо, неравенство в задаче выглядит так: ![40_8 \leq x \leq E6_{16}](https://tex.z-dn.net/?f=40_8%20%5Cleq%20x%20%5Cleq%20E6_%7B16%7D)
Переведем каждое из чисел 10-тичную систему счисления.
![40_8 = 0*1 + 4*8 = 32](https://tex.z-dn.net/?f=40_8%20%3D%200%2A1%20%2B%204%2A8%20%3D%2032)
![E6_{16} = 6*1 + 15*16 = 246](https://tex.z-dn.net/?f=E6_%7B16%7D%20%3D%206%2A1%20%2B%2015%2A16%20%3D%20246)
Получим диапазон для десятичных чисел
, длину которого легко посчитать: 246 - 32 + 1 = 215
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.