Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.
Окно,ок, но не знаю, я ваш вопрос не очень хорошо поняла
Перше-2, друге-1, третє-4, четверте-3, п'яте-5
Найди лишнее десятичное число и зачеркни его. а) 23,53,73,37,83 б) 17,20,21,37,99 в) 40,44,48,88,42
alers123 [10]
Возможно не правильно но всё же как вариант
1)37.
2)20.
3)88.