Var a,b,d,m:integer;
begin
writeln('Введите два числа:');
write('a = '); readln(a);
write('b = '); readln(b);
d:=a div b;
m:=a mod b;
writeln('D = ',d);
writeln('M = ',m);
end.
Пример:
Введите два числа:
a = 16
b = 6
D = 2
M = 4
Вопросы должны, как мне кажется, задаваться следующим образом:
1) N = 1.
2) В какой половине алфавита находится N-я буква?
3) В какой половине из этой части находится N-я буква?
... и т.д. пока не дойдём до самой буквы, т.е. потребуется 5 вопросов на каждую букву (2^5 = 32).
Таким образом, всего – 5*5 = 25 вопросов.
Если по программе 1-4 класс, то ответ курсор. Буква Р- 18 по счету
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
<u><em>Тестовое решение:</em></u>
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69