Феофилакт хочет купить ракетки и шарики для игры в настольный теннис. Один комплект ракеток стоит AA рублей, один шарик стоит BB рублей. У Феофилакта есть CC рублей, C≥AC≥A, он покупает один комплект ракеток и шарики на оставшиеся деньги. Сколько шариков купит Феофилакт? Программа получает на вход три целых числа: AA, BB, CC. Программа должна вывести ответ на задачу.
Это сделать нужно не в питоне, а в паскале!! Мы ещё не знаем, что такое if.
Если игра безошибочна, тогда первый игрок может первым ходом увеличить в 3 раза вторую кучу (2*3=6), второй не станет увеличивать эту-же на 3 т.к сразу проиграет (18>17),
1) он может увеличит первую на три, тогда второй эту же увеличит на 3 и результат 1*3(2)*3(1)=9
9+6=15, первый победит
2)первый игрок будут играть аккуратно и постоянно прибавлять по 2 во вторую кучу, поскольку и в первого "безошибочная игра", то он не станет прибавлять в 1 2 камня(1+2=3, первый умножает эту кучу на 3 и результат 6+(3*3)=15), поэтому и первый и второй будут прибавлять во вторую кучу 6_{1}+2_{2}+2_{1}+2_{2}+2_{1}=15+2_{2}=176
1
+2
2
+2
1
+2
2
+2
1
=15+2
2
=17 17=17 (что по условию не подходит), выиграл 1
nn=100; { максимальное значение n }
var
i,n,k,s:integer;
a:array[1..nn] of integer;
begin
Write('Укажите натуральное число n: '); Read(n);
Randomize;
k:=0; s:=0;
Writeln('Сформированная последовательность');
for i:=1 to n do begin
a[i]:=Random(99)+1; { случайное число на интервале [1;99] }
Write(a[i]:3);
if (a[i] mod 5=0) and (a[i] mod 7 <>0) then
begin Inc(k); s:=s+a[i] end;
end;
Writeln;
Writeln('Количество чисел, кратных пяти: ',k);
Writeln('их сумма равна ',s)
end.
Тестовое решение:
Укажите натуральное число n: 39
Сформированная последовательность
15 83 69 64 56 50 13 70 55 40 22 82 45 67 31 36 16 52 67 44 63 23 52 62 89 33 40 32 17 14 98 15 5 58 46 68 57 72 90
Количество чисел, кратных пяти: 9
их сумма равна 355