var
x, y, R, Oa, Ob: real;
begin
writeln('Введите радиус окружности R');
readln(R);
writeln('Введите координаты центра окружности');
readln(Oa, Ob);
writeln('Введите координаты точки');
readln(x, y);
if (x > (Oa - R)) and (x < (Oa + R)) and (y > (Ob - R)) and (y < (Ob + R)) then
writeln('Точка с заданными координатами лежит внутри круга')
else
writeln('Точка с заданными координатами лежит вне круга');
end.
Если все правильно, отметь решение как лучшее)
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.
Микропроцессоры характеризуются: тактовой частотой и разрядностью.
Ответ: г) 2 и 4
1) а=0 0 = 10. нет, тогда b становится -3 (т.к. -(3)+ 0 * 0), а становится 2
2). а = 2 2 = 10, нет, тогда b становится 7 (т.к. -(-3) + 2 * 2), а становится 4
3). а = 4 4 = 10, нет, тогда b становится 9 (т.к. -(7) + 4 * 4), а становится 6
4). а = 6 6=10, нет, тогда b становится 27 (т.к. -(9) + 6 * 6), а становится 8
5). а = 8 8=10, нет, тогда b становится 37 (т.к. -(27) + 8 * 8), а становится 10
6). a = 10 10 = 10 да, b = b * 2 = 37 * 2 = 74
ответ: 74
1110011012<span> = 1∙2</span>8+1∙27+1∙26+0∙25+0∙24+1∙23+1∙22+0∙21+1∙20<span> = 256+128+64+0+0+8+4+0+1 = 461</span>10
<span>Получилось: </span><span>46110</span><span>
</span>Результат перевода:
<span>1110011012 = 461<span>10</span></span>