Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
паскаль
var a,i: integer;
begin
readln(a);
writeln;
for i: =1 to a do
if (a mod i=0) then writeln (i);
end.
program fasf;
var
n,q: integer;
write('введите этаж: ');
readln(n);
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:
1) 6224
2) 64472
наверняка двоичные числа надо только определить где ноль а где один
наверно о - one
10101
10110
10111
11000
11001
вроде как сходится, продолжаем
11010
11011
11100
11101
11110
11111
обратную замену самостоятельно
Популярные вопросы