Задание 1. Для каждой из начальных позиций (10, 7,
13), (9, 12, 10) укажите, кто из игроков имеет
выигрышную стратегию. В каждом случае опишите
выигрышную стратегию; объясните, почему эта
стратегия ведёт к выигрышу, и укажите, какое
наибольшее количество ходов может потребоваться
победителю для выигрыша при этой стратегии.
Задание 2. Для каждой из начальных позиций (12, 7,
10), (7, 11, 10) укажите, кто из игроков имеет
выигрышную стратегию. В каждом случае опишите
выигрышную стратегию; объясните, почему эта
стратегия ведёт к выигрышу, и укажите, какое
наибольшее количество ходов может потребоваться
победителю для выигрыша при этой стратегии.
Задание 3. Для начальной позиции (10, 10, 7)
укажите, кто из игроков имеет выигрышную
стратегию. Опишите выигрышную стратегию;
объясните, почему эта стратегия ведёт к выигрышу, и
укажите, какое наибольшее количество ходов может
потребоваться победителю для выигрыша при этой
стратегии. Постройте дерево всех партий, возможных
при указанной Вами выигрышной стратегии.
Представьте дерево в виде рисунка или таблицы.
Begin
write('Введите 3 числа: ');
readln (a,b,c);
if c = sqrt(a*a + b*b) then writeln('Число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if a = sqrt(c*c + b*b) then writeln('Число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if b = sqrt(a*a + c*c) then writeln('Число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else writeln('Эти числа не являются сторонами прямоугольного треугольника')
End.
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
if (a<0)and(b<0) then
begin a:=-a; b:=-b; end;
if a<0 then for var i:=1 to b do s+=a
else for var i:=1 to a do s+=b;
WriteLn(s);
end.
Пример:
-7 15
-105
2)
var n,s:integer;
begin
Readln(n);
s:=0;
for var i:=1 to n do s+=i;
WriteLn(s);
end.
Пример:
100
5050
3)
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
for var i:=a to b do s:=s+i*i;
writeLn(s);
end.
Пример:
2 5
54
4)
var a,b,n:integer;
begin
Readln(a,b,n);
for var i:=1 to n do write(random(b-a+1)+a,' ');
end.
Пример:
10 20 5
11 12 14 14 18