Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Program Rick_and_Morty; //название поменяй
var x,y:integer;
Begin
write('введите x: ');
readln (x);
write('введите y: ');
readln (y);
if ((x=0) and (x*x+y*y=36)) //тут условие
or ((x=0) and (y=0) and (x*x+y*y=36)) //and как и, or как или
or ((x>=0) and (y=0) and (x*x+y*y=36)) // условие закончилось
then //если хоть одно условие верно то
writeln('(',x,',',y,') - входят в облость')
else // если не верно то
writeln('(',x,',',y,') - не входят в облость');
writeln('конец');
end.