Задача: дана точка с координатами XY, нужно определить, принадлежит ли она указанной области
Решение:
var x, y: real;
begin readln(x, y);
if not ((x >= 0) and (y >= 0) and (y >= -2 * x + 4) and (y <= -x + 6)) then
write('не ');
writeln('принадлежит');
end.
Слайд это просто только тебе нужно программа повер пойнт. у меня есть повер пойнт я слайд повер пойнтом. Если хочеш закачай но ты найдёш лучши ответ
Лат. carne vale, «прощай, мясо» либо лат. car val — «корабль шутов»
CONST<span> k=10; </span>{k - количество чисел в массиве}VAR<span> a:array[1..k] of integer;</span><span> i,summ,n:integer; </span>{i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}<span> sr:real; {sr - среднее арифметическое} </span>BEGIN summ:=0; n:=0; {Обнуляем счетчики}<span> for i:=1 to k do </span> begin a[i]:=random(50); {Заполняем массив случайными числами}<span> write (a[i],' '); </span>{Выводим массив}<span> if a[i] mod 2=0 then </span> begin<span> summ:=summ+a[i]; </span>{Находим сумму элементов массива с четными значениями} n:=n+1 end end;<span> sr:=summ/n; </span>{Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое}END.