1.162 = 10100010<span>2
2.</span>162 = 0242<span>8
3.</span>162 = 0A2<span>16</span>
во вложении..............................
Задача решается перебором всех целых положительных двухзначных чисел (в цикле от 11 до 99 включительно с шагом 1). Для того, чтобы выяснить, кратно ли число 3, необходимо использовать функцию остатка от целочисленного деления (mod).
Var
L:integer;
begin
writeln('Введите средний балл ученика: ');
readln(L);
if L>=13 then
writeln('Ученик будет посещать факультатив.');
if L<13 then
writeln('Ученик не может посещать факультатив!');
<span>end.</span>