Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
qbasic:
input "число а=", a
x = a
do
x = x ^ 2 + 1
n = n + 1
loop until x > = 1000000
print a, x, n
max(n) = 7, при a = 0
2, 4, 8, 16 (двоичная (10000), четверичная (100), восьмеричная (20), шестнадцатеричная (10))
1)52: 2=26(чел) любят пирож
2)26-20=6(чел) любят морож
ответ 6 чел
var x,i,x1,x2,x3: integer
s: string;
begin
read(x);
s: =str(x);
x1: =int(s[1]);
x2: =int(s[2]);
x3: =int(s[3]);
if (x1+x3)mod x2=0 then writeln("да")
else writeln("нет");
end.
Популярные вопросы