Область выше прямой → y >= 2*x
Правее оси ординат → x >= 0
Внутри окружности → y*y+x*x <= 4
(Формула окружности: x^2+y^2 = R^2
x*x +y*y = R - точка на окружности
x*x +y*y > R - точка вне окружности
x*x +y*y < R - точка внутри окружности)
Условия (y >= 2*x), (x >= 0) и (y*y+x*x <= 4) должны выполняться все вместе, поэтому между ними "and".
(Если было бы достаточно, чтоб выполнялось одно из данных условий, вместо "and" было бы "or". or не исключает, что могут выполняться все условия сразу.)
Ответ: (y >= 2*x)and(x >= 0)and(y*y+x*x <= 4).
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
Из 10 л ведра переливаем в 6 л ведро . мы знаем что в первом осталось 4 л. × 3 и : 2
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
for var i:=100 to 999 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false else j+=1;
if flag then Print(i)
end
end.
Для входа в систему "персонального компьютера", необходим жёсткий диск, на котором записаны данные