Сделать домашнее задание. Сесть за стол, достать дневник, достать тетрадь, достать учебник, решить задачи. конец.
254 : 2 = 127 (остаток от деления 0)
127 : 2 = 63 ( остаток от деления 1)
63 : 2 = 31 ( остаток от деления 1)
31 : 2 = 15 ( остаток от деления 1)
15 : 2 = 7 ( остаток от деления 1)
7 : 2 = 3 ( остаток от деления 1)
3 : 2 = 1 ( остаток от деления 1)
Остаток от деления записывается в обратном порядке, получаем:
254 = 11111110
Var N, K: integer;
begin
write('N = '); readln(N);
if N > 0 then
begin
K := sqr(N + 1) + sqr(N + 2) + sqr(N + N);
writeln('K = ', K);
end
else
write('N меньше или равно 0');
end.
