Var x,y:real;
begin
readln(x,y);
if (y>=2) and (x*x+y*y>=16) and (x*x+y*y<=36) then
writeln(‘принадлежит’)
else writeln(‘не принадлежит’);
end.
писал с телефона, так что могут быть синтаксические ошибки
но логически программа верная
Var x,k:integer;
<span>begin </span>
<span>k:=0; </span>
<span>repeat </span>
<span>writeln('Введите число'); </span>
<span>read(x); </span>
<span>if (x>0) and (x<=256) then k:=k+1; </span>
<span>until x=0; </span>
<span>writeln('Количество положительных чисел <=256 = ',k); </span>
<span>end.</span>
Растровая графика (от лат. rastrum - грабли, то есть если разрыхлить землю граблями получится "эффект пикселей" по горизонтали и вертикали)
Ответ:у тебя наверное комп старый у меня было такое и пришлось новый покупать
Объяснение: