вот тебе то, что ты хотела
Это ж алиэкспресс. Но вообще и у моего друга так. Возможно там внутри что-то случилось допустим: провода там перегорели или что-то похожее
Программа:
var x,y: real;
begin
write('x, y: ');
readln(x,y);
if (y>=x*x)and(x<=1)
then writeln('принадлежит')
else writeln('не принадлежит');
end.
Пример:
x, y: 0.5 2
принадлежит
Program Min5
var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.
Надсистема-Первая группа решений задачи минимизации связана с использованием надсистемы. Что такое надсистема? Это то, что окружает систему; то, с чем она взаимодействует. Для устройства – это окружающие его другие устройства, которые работают вместе. Так, для плазменной панели в качестве надсистемы может выступать мультимедийный центр, который включает саму плазменную панель, DVD-плеер, игровую приставку, колонки, компьютер.