//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
Любой хост сети с IP-адресом 192.131.122.0
Число должно раскладываться на сумму 15 и 9. Или - найдутся такие натуральные (или 0) числа k и m, что
X = 15*k + (15-6)*m = 15*k + 6*m
как найти - делить с остатком на 15, потом на 6, если остаток = 0 то нашлись.
480 = 15 * 32 + 6 * 0 + 0
115 = 15*7 + 10 = 15*7 + 6 * 1 + 4
555 = 15 * 15 + 6 * 0
160 = 15 * 10 + 6*1 + 4
220 = 15 * 14 + 6 * 1 + 4
ответ. 480 и 555
Иголка- один из важных элементов не только матричного принтера