121(7) + 1 = 101(8)
64 + 1 = 65
Это семеричная система счисления:
26(7) = 2*7+6 = 14+6 = 20(10)
13(7) = 7+3 = 10(10)
//PascalABC.Net 3.2
begin //true - если принадлежит, false - если не принадлежит
var x:=readreal ('x =');
var y:=readreal ('y =');
write ((sqrt(y*y+x*x)<=1) and (y>=0) and (y>=-x));
end.
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.