Var x, y: real;
begin readln(x, y);
if (y>=0) and (y<=sinx) and (x>=1-y) and (x<=Pi) then
writeln('принадлежит')
else writeln('не принадлежит');
readln;
end.
Алг
нач
цел i,s
s:=0
нц для i от 20 до 50
s=s+i
кц
вывод s
кон
Пацан напиши готовое домашние задание там
будет от путина и выбери там
Program m3;
var s,k,m:real;
begin
readln(m,k);
writeln('m=',m,' k=',k);
s:=(26*k-m)/(6-4*k-56*m*k);
writeln('s=',s);
<span>end.</span>