38 в десятичной , но такого ответа нет, значит надо перевести 37 в двоичную систему. для этого 38 делим на 2 пока делится
38/2=19 остаток0
19/2=9 остаток 1, уже видно что двоичный второй ответ не подходит, там нет нуля.
попробуем переведем в восьмеричную, для этого делим 38 на 8.
38/8=4 остаток 6, получается 46 в 8 сс. ответ 4
Ответ дал: Гость
read (n);
i : = 1;
repeat
writeln(i*i);
i : = i + 1;
untill i*i > n
Ответ дал: Гость
у меня тоже даша получилось))
Ответ дал: Гость
var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
Популярные вопросы