Получим формулу для вывода. То, что находится в переменных a и b буду обозначать [a, b]:
[a, b] Ввести a, b
[a+b, b] a:=a+b
[a+b, a] b:=a-b
[b, a] a:=a-b
[b, a] <span>Вывести<span> a+b
Итак, алгоритм просто меняет местами a и b, и выводит сумму b + a.
В порядке возрастания выводов:
</span></span><span><span>3) 7 + 7 = 14
4) 9 + 6 = 15
2) 12 + 4 = 16
1) 8 + 10 = 18
5) 11 + 9 = 20</span></span>
<span>42015 + 22015 – 15
Сначала решаешь в 10-ой системе счисления:</span>
<span>42015 + 22015 – 15 = 64015
Затем переводишь найденное число из 10-ой в 2-ую:</span>
64015(в 10-ой) = <span>1111101000001111 (в 2-ой)
В данном числе 10 единиц.
Остальные примеры решаются точно также
</span>
Var
year, answer: Integer;
begin
WriteLn('V kakom gadu nochalasya voina?');
WriteLn('Vvedite god nachala WoW');
ReadLn(answer);
if answer <> year then
begin
WriteLn('Ne pravilno, pravilniy atvet bil = ' + year);
end else
begin
WriteLn('VERNA!');
end;
end;
end.