Посмотри в интернете про это там всё есть и сам придумай это легкооо
Var i:integer;
begin
for i:=100 to 999 do
if sqr(i div 100) = i div 10 mod 10 + i mod 10 then writeln(i);
end.
Результат:
101
110
204
213
222
231
240
309
318
327
336
345
354
363
372
381
390
479
488
497
А8 = 250 в восьмеричной
АB = 253 в восьмеричной
B5 = 265 в восьмеричной
CA = 312 в восьмеричной
То есть, ответом будут являться число CA
Program Katarina55;
uses crt;
var
x,poz,neg:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит количество положительных и отрицательных введённых чисел. ');
writeln('Ввод продолжается, пока не будет введен 0.');
writeln();
neg:=0;
poz:=0;
repeat
writeln('Введите число '); readln (x);
if x<0 then neg:=neg+1;
if x>0 then poz:=poz+1;
until x=0;
writeln();
writeln('Программа закончила работу.');
writeln('Количество введённых чисел:');
writeln(' положительных: ',poz);
writeln(' отрицательных: ',neg);
end.
Маска устроена так, что сначала идут единицы, а потом нули.
Пример маски: 1111111000.
Адрес сети это поразрядная конъюнкция ip адреса и маски.
Видно, что у маски начались нули в четвертом байте слева.
раскладывая числа 28 и 0 в двоичную систему находим, что 3 единицы плюс ещё 24 => Ответ 27.