Мне кажется, вариант под Б, даже не думая понял)
//дано трехзначное число найдите сумму его цифр
var x,y,i:word;
begin
writeln('Введите трехзначное число');
readln (x);
while (999<x) or (x<100) do //в цикле проверяется "трехзначность" числа
begin
writeln('Вы ввели не трехзначное число попробуйте еще раз');
readln (x);
end;
for i:=1 to 3 do // число делиться на цифры
begin
y:=y+x mod 10;
x:=x div 10;
end;
writeln('Сумма цифр данного числа ',y);
<span>end.</span>
В двоичную:
а) 856 = 1101011000
б) 664 = 1010011000
в) 5012 = 1001110010100
г) 6435 = 1100100100011
д) 78 = 1001110
В восьмеричную:
а) 856 = 1530
б) 664 = 1230
в) 5012 = 11624
г) 6435 = 14443
д) 78 = 116
В шестнадцатеричную:
а) 856 = 358
б) 664 = 298
в) 5012 = 1394
г) 6435 = 1923
д) 78 = <span>4E</span>
Так небольшой экскурс:
1 вводим правильное слово (которое надо загадать).
2 вылезает предложение о догадке, если предположение верное вылезает соответствующее окно, программа завершается. Если же нет, то появляется подсказка.