1
1. Ввод числа n с клавиатуры(пользователем)
2. Переменная res принимает значение 'NO'
3. Переменная a1 принимает значение 0
4. Переменная а2 принимает значение 0
5. Пока n больше 0 выполнять цикл:
6. Переменная a1 принимает значение остатка от деления введенного числа на 10
7. Переменная а2 принимает значение остатка от целочисленного деления введенного числа на 1(пример целочисленного деления: 12 // 5 = 2)
8. Если переменная а1 равна переменной а2, то выполнить условие
9. Переменная res принимает значение 'YES'
10. Введенное число нацело делится на 10.
11. Вывести переменную res
2
1. Ввод числа n с клавиатуры
2. Переменная res принимает значение 'NO'
3. Переменной d1 присваивается значение 0
4. Переменной d2 присваивается значение 0
5. Пока введенное число больше 0 выполнять цикл:
6. Переменная d1 принимает значение остатка от деления введенного числа на 10
7. Переменная m принимает целочисленное деление переменной d2 на 10
8. Пока переменная m больше 0 выполнять цикл:
9. Переменной d2 присвоить значение остатка от деления m на 10
10. Если переменная d1 равна переменной d2, то выполнить условие:
11. Переменной res присвоить значение 'YES'
12. Присвоить переменной m значение целочисленного деления m на 10
13. Присвоить переменной n результат целочисленного деления n на 10
14. Вывести переменную res
Вроде ничего не упустил.
Проанализируем каждую последовательность.
Последовательность 122 не может быть получена в результате выполнения алгоритма, поскольку числа записываются в порядке неубывания, а число 22 не может являться разностью двух чисел, меньших шестнадцати.
Последовательность 212 может быть получена в результате выполнения алгоритма, предложенного учителем, в этом случае исходные цифры были: F, D, 1.
Последовательность 313 не может быть получена в результате выполнения алгоритма, предложенного учителем, поскольку из анализа предыдущей последовательности ясно, что не удастся выбрать такие три числа в шестнадцатеричной системе.
Последовательность 3A не может быть получена в результате выполнения алгоритма, поскольку обе разности должны быть записаны как десятичные числа.
Правильный ответ указан под номером 2.
Var a,b,c,p:real;
Begin
Writeln('Формула нахождения P треугольника: P=A+B+C');
Writeln('Введите значения P,A,B');
Readln(p,a,b);
c:=p-a-b;
Writeln('C=',c);
End.
Program zadanie_2;
Var a,b,c,p:real;
Begin
Writeln('Формула нахождения P треугольника: P=A+B+C');
Writeln('Введите значения P,A');
Readln(p,a);
b:=(p-a)/2;
c:=b;
Writeln('C=',c);
Writeln('B=',b);
End.