Снежная королева придумала Каю задачу: собрать льдинки, в которых число граней, выражается не более чем трехзначным числом, делится на каждую из цифр, встречается в записи числа граней этой льдинки. Когда мальчик соберет все такие льдинки, Снежная королева согласится отпустить его домой Каю выбраться из ледяного плена.

ответ:1 2 3 4 5 6 7 8 9 11 12 15 22 24 33 36 44 48 55 66 77 88 99 111 112 115 122 124 126 128 132 135 144 155 162 168 175 184 212 216 222 224 244 248 264 288 312 315 324 333 336 366 384 396 412 424 432 444 448 488 515 555 612 624 636 648 666 672 728 735 777 784 816 824 848 864 888 936 999

Объяснение:var i,j:Integer;

begin

i:=1;

while i<1000 do begin

j:=i;

while j>0 do begin

if (j mod 10=0) then j:=-1 else if (i mod (j mod 10)>0) then j:=-1;

if j>0 then j:=j div 10;

end;

if j=0 then write(i,' ');

inc(i);

end;

end.

Не более трёх граней, не значит три грани, поэтому думаю что так должно быть! )

Результат:

1 2 3 4 5 6 7 8 9 11 12 15 22 24 33 36 44 48 55 66 77 88 99 111 112 115 122 124 126 128 132 135 144 155 162 168 175 184 212 216 222 224 244 248 264 288 312 315 324 333 336 366 384 396 412 424 432 444 448 488 515 555 612 624 636 648 666 672 728 735 777 784 816 824 848 864 888 936 999

Бит - это минимальная единица измерения информации.
В 16-ричном коде это выглядит так:
C1 E8 F2 20 2D 20 FD F2 EE 20 EC E8 ED E8 EC E0
EB FC ED E0 FF 20 E5 E4 E8 ED E8 F6 E0 20 E8 E7
EC E5 F0 E5 ED E8 FF 20 E8 ED F4 EE F0 EC E0 F6
E8 E8 2E
Если применить к каждому байту функцию XOR 55 (исключающее или с числом 55),
то получится
94 BD A7 75 78 75 A8 A7 BB 75 B9 BD B8 BD B9 B5
BE A9 B8 B5 AA 75 B0 B1 BD B8 BD A3 B5 75 BD B2
B9 B0 A5 B0 B8 BD AA 75 BD B8 A1 BB A5 B9 B5 A3
BD BD 7B
Самое интересное в этом коде то, что применив к нему снова XOR 55, мы получим исходное сообщение.

1)
var v,h,i:real;
begin
readln(v);
readln(h);
i:=h-100;
if v=i then writeln('у вас идеальный вес') else 
if v>i then writeln('вам нужно похудеть на ', v-i,' кг ') else
writeln('вам нужно поправиться на ', i-v,' кг ');
end.

2)
var a:string;
b:integer;
begin
readln(a);
b:=strtoint(a[length(a)]);
if (b mod 2 <> 0) and (b mod 5 <> 0) then writeln('число не делится ни на 2, ни на 5');
if (b mod 2 = 0) and (b mod 5 <> 0) then writeln('число делится только на 2');
if (b mod 2 <> 0) and (b mod 5 = 0) then writeln('число делится только на 5');
if (b mod 2 = 0) and (b mod 5 = 0) then writeln('число делится и на 2, и на 52');
end.