Var x,y:real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x<0)and(y>0)
then writeln('Точка находится во второй координатной четверти')
else writeln('Точка не находится во второй координатной четверти');
end.
Пример:
x = -2
y = 5
Точка находится во второй координатной четверти
P = 1, i = 1
<h2>1 цикл</h2>
P = P · i = 1 · 1 = 1
i = i + 1 = 1 + 1 = 2
2 > 3 ? false
<h2>2 цикл</h2>
P = P · i = 1 · 2 = 2
i = i + 1 = 2 + 1 = 3
3 > 3 ? false
<h2>3 цикл</h2>
<u>P = P · i = 2 · 3 = 6</u>
i = i + 1 = 3 + 1 = 4
4 > 3 ? True
Выход из цикла
<h2>Ответ</h2>
B
=ЕСЛИ(B1<-1;-2*B1+3+SIN(B1);ЕСЛИ(B1<0;ABS(B1);B1*LN(x+1)))
<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.
<span>program</span><span> kalkulator; </span>
<span>uses</span><span> crt; </span>
<span>var</span><span> a</span><span>,</span><span>b</span><span>,</span><span>c</span><span>:</span><span>real</span><span>; </span>x<span>:</span><span>integer</span>;
<span>Begin</span>
clrscr;
<span>Writeln</span><span>(</span><span>'введите 2 числа'</span><span>)</span>;
<span>Readln</span><span>(</span>a<span>,</span>b<span>)</span>;
<span>Writeln</span><span>(</span><span>'выберете действие'</span><span>)</span>;
<span>Writeln</span><span>(</span><span>'1-"+" 2-"-" 3-"*" 4-"/"'</span><span>)</span>;
<span>Readln</span><span>(</span>x<span>)</span>;
<span>case</span> x <span>of</span>
<span>1</span><span>:</span><span>begin</span> c<span>:=</span>a<span>+</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>2</span><span>:</span><span>begin</span> c<span>:=</span>a<span>-</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>3</span><span>:</span><span>begin</span> c<span>:=</span>a<span>*</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>else</span><span>begin</span> c<span>:=</span>a<span>/</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>;
<span>end</span>;
<span>end</span>;
<span>Readln</span>;
<span>end</span>.