116.213.234.243
БВГА вроде так)главное что бы ай-пи адрес не превышал 255.
Program shtrihi;
uses crt;
var
x,y: real;
begin
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
if (y>=0) and (y>=-x+2) and (x*x+y*y<=9) and (y<=exp((1/2)*ln(abs(x)))) then
begin
writeln('Точка (',x,',',y,') попадает в заштрихованную область ');
end
else
writeln('Точка (',x,',',y,') HE попадает в заштрихованную область ');
end.
<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>