Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) <span>then </span>
writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');<span>
End.</span>
1 буква = 5 бит, т.к. 2^5=32.
5*200 = 1000 бит
1000:8=125 байт все хорошо, вот только чтобы получить из этого кбайты нужно поделить на 1024
следовательно 125/1024=0.1220703125кбайт
Начало отсчета лет - 1984 год. Надо написать программу (pascalABC). Вводите год, нужный вам, отнимаете от него 1984 и находите остаток от деления на 12. Последовательность животных в 12-летнем цикле - крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака, свинья. То есть если при делении на 12 остаток равен 0, значит введенный год - год крысы, если 1 - год коровы и т.д.