Program zadanie;
Var n1,n2,a,b:integer;
Begin
Writeln('Ввести два 3-х значных целых числа');
Readln(n1,n2);
a:=(n1 mod 100) mod 10;
b:=(n2 mod 100) mod 10;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln('N1=',n1 div 10,a);
Writeln('N2=',n2 div 10,b);
Writeln('Сумма этих чисел=',(n1 div 10)+(n2 div 10)+((a+b) div 10),(a+b) mod 10);
<span>End.</span>
Область выше прямой → 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).
Формула в ячейке D3 - =$A3-D$1
так как $ используется для абсолютной адресации то изменим формулу для ячейки E6 - =$A6-E$1
Значение ячейки D3 = 17
Значение ячейки E6 = 46
Ответ : 46
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.