Var a, b, c : integer;
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.
Ответ:Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить в одну из куч один камень или увеличить количество камней в куче в два раза. Например, пусть в одной куче
6
6
камней, а в другой
9
9
камней; такую позицию мы будем обозначать
(6, 9)
(6,9)
. За один ход из позиции
(6, 9)
(6,9)
можно получить любую из четырёх позиций:
(7, 9)
(7,9)
,
(12, 9)
(12,9)
,
(6, 10)
(6,10)
,
(6, 18)
(6,18)
. Чтобы делать ходы, у каждого игрока есть неограниченное количество камней.
Игра завершается в тот момент, когда суммарное количество камней в кучах становится не менее
74
74
. Победителем считается игрок, сделавший последний ход, то есть первым получивший позицию, в которой в кучах будет
74
74
или больше камней.
В начальный момент в первой куче было
12
12
камней, во второй куче –
S
S
камней,
1 \leq S \leq 61
1≤S≤61
Объяснение:
1)
Пока б больше а, {
проверить что при делении на два остаток равен 1, {
б присвоить б минус 1,
вывести б }}
2)
пока б миньше а {
общее присвоить б * счетчик
б присвоить б + 1 }
3)
пока счетчик (введенное число) не равно 0 {
счетчик + 1
выполнять (а = 0, а < счетчик, а присвоить а + 1) {
вывести а }}
Удачи. Надеюсь помог.
Выводятся такие значиния
k= 1 p=120
j=10 s= 20 j=11 s= 42 j=12 s= 66 j=13 s= 92 j=14 s= 120 j=15 s= 150