1)
program z1;
var x,y: integer;
begin
write ('x = ');
readln (x);
write ('y = ');
readln (y);
if (y>0) and (x*x+y*y<4) then writeln('Точка попадает в синюю область')
else writeln('Точка не попадает в синюю область')
end.
2)
program z1;
var x,y: integer;
begin
write ('x = ');
readln (x);
write ('y = ');
readln (y);
if (x<0) and(y<0) and (x*x+y*y<5) then writeln('Точка попадает в синюю область')
else writeln('Точка не попадает в синюю область')
end.
Объяснение:
Проекции точки на оси x и y являются катетами прямоугольного треугольника. Гипотенуза - расстояние от начала координат до точки.
Чтобы точка принадлежала кругу расстояние до точки должно быть меньше радиуса.
Поскольку здесь половина и четверть круга, добавляем ограничения по х и у.
Ақпарат (лат. informatio — түсіндіру, мазмұндау) ұғымы күнделікті өмірден бастап техникалық салада пайдаланылатын көп мағыналы ұғым. Жалпы алғанда бұл ұғым шектеу, байланыс, бақылау, форма, инструкция, білiм, мағына, құрылым, бейнелеу, сезіну тағы басқа ұғымдармен тығыз байланысты. Көп адам бұл жайлы Білім дәуірі немесе білім қоғамы тудырған Ақпарат дәуірі туралы айта бастады; ақпараттық қоғам, ақпараттық технологиялар, тіпті информатика, ақпарат ғылымы және компьютер ғылымы назарға көп түсуде, ал “ақпарат” сөзі білдіре бастаған мағыналары ұқыпсыз пайдаланылуда.[1]
read (b);
while (a<=b)
begin;
if ((a mod 2 =0) and (a mod 3 =0)) or ((b mod 2=0) and (b mod 3 =0)) then
begin;
write (a)
else
if (b mod 2=0) and (b mod 4=0) then
write (b)
else
end;
readkey;
end.
второе прости могу только на си