Предмет: Информатика,
автор: agafonovanadeg
Двое играют в следующую игру. Дано число 0. Разрешается прибавить к текущему числу любое натуральное число от 1 до 9. Выигрывает тот, кто получит число N . Кто выигрывает при правильной игре?
ВХОДНЫЕ ДАННЫЕ
Вводится одно натуральное число N ( 1 ≤N≤ 10000).
ВЫХОДНЫЕ ДАННЫЕ
Выведите 1, если выигрывает первый игрок (тот, кто ходит первым), или 2, если выигрывает второй игрок.
ПРИМЕРЫ
ВВОД ВЫВОД
5 1
10 2
Загрузите исходный код программы
Укажи язык программирования
Ответы
Автор ответа:
0
Var
a,b,n:integer;
Begin
Readln(n);
While (a<>n) or (b<>n) do begin
Read(a);
if a=n then write('1') else begin
Read(b);
if b=n then write('2');
end;
end;
end.
Pascal ABC
a,b,n:integer;
Begin
Readln(n);
While (a<>n) or (b<>n) do begin
Read(a);
if a=n then write('1') else begin
Read(b);
if b=n then write('2');
end;
end;
end.
Pascal ABC
Автор ответа:
0
При вводе данного ответа пишет "частичное решение", подскажите, что не правильно я делаю, где ошибка? Язык ввода выставляю PascalABC.NET
Автор ответа:
0
Всё спасибо, решение нашла:var n:integer;
begin readln(n);
if n mod 10 = 0 then write(2) else write(1);
end.
begin readln(n);
if n mod 10 = 0 then write(2) else write(1);
end.
Интересные вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Информатика,
автор: egormb7
Предмет: Химия,
автор: Dora4546
Предмет: Литература,
автор: Даша0301
Предмет: Геометрия,
автор: olysikkk56