//PascalABC.NET 3.2 сборка 1318
Var
x1,y1,x2,y2,x3,y3,r,count:integer;
begin
read(x1,y1,x2,y2,x3,y3,r);
if sqr(x1)+sqr(y1)=sqr(r) then inc(count);
if sqr(x2)+sqr(y2)=sqr(r) then inc(count);
if sqr(x3)+sqr(y3)=sqr(r) then inc(count);
writeln(count);
end.
Пример ввода:
0 1 1 0 -1 0 1
Пример вывода:
3
<span>с получением и передачей, хранением и обработкой информации. </span>
Округляем к большему
log2 45 Получаем 5 (бит)
Зажать home и блокировку. Устройство выключится.