Он окажется в исходной точке и нарисует квадрат стороной в 10 метров
64000:8=8000байт
8000:1000=8Кбайт
16*8=128 Кбайт
ответ:128
//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека
var y, x: <em>real</em>;
begin
write('x = ');
read(x);
y:=sqr(x)-6*x;
if (y>=0) then begin y:=sqrt(y)/(x+3);
write('y = ', y:5:3);
end
else write('В процессе вычислений корень оказался отрицательным, поэтому вычислить его невозможно')
end.
Можно составить уравнение окружности, посчитав радиус: x^2 + y^2 = 36 (6^2). И если сумма слева будет меньше или равна 36, то точка будет лежать внутри круга. Но у нас ещё первая четверть не закрашена. В таком случае либо x <= 0 (а y может иметь любой знак), либо наоборот.
Итак, решение (на Паскале):
var
x, y: real;
begin
writeln('Введите координаты точки x и y соответственно:');
readln(x, y);
if (x <= 0) or (y <= 0) then
if x * x + y * y <= 36 then
writeln('Принадлежит')
else
writeln('Не принадлежит')
else
writeln('Не принадлежит')
end.