Так как для хранения файлов отводится некоторое количество кластеров (количество кластеров определяется исходя из размера файла), то для хранения файла размером 1000 байт будет отведен один кластер, т.е. 4 килобайта.
Можно составить уравнение окружности, посчитав радиус: 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.
2048 в байт 2048Кбайт
12288 бит 12288 Кбайт
8000 бит 1000 байт
Ответ:
Объяснение:
Делаешь цикл из 3 последовательностей
В нем сравниваешь каждое число с нулем, если число меньше 0, значит оно отрицательное и к счетчику прибавляешь 1(счетчик - любая переменная, которая изначально равна 0)
var
a: integer;
b: real;
begin
writeln ('введи целое число');
read (a);
if a mod 2=0 then b:=a/2
else
b:=a*a*a;
writeln ('результат',b);
end.