Ilona286

14.07.2021 02:48

Информатика

Есть ответ 👍

Гра в камінчики є купка з n камінчиків. грають двоє. за один хід потрібно взяти не менше одного і не більше m камінців. програв той, хто не зміг зробити хід. скільки камінців взяли б ви, якщо розраховуєте на виграш і ходите першим або 0, якщо шансів на виграш немає? вхідні дані - 7 4 значення n і m (1 ≤ n, m ≤ 1000). вихідні дані - 2

220

269

Посмотреть ответы 2

Ответы на вопрос:

Ксюшечка59874374

Информатика

4,7(25 оценок)

Алгоритм выигрыша в этой игре простой: каждый раз надо забирать из кучки m+1 камешек. следовательно, первым ходом надо забрать количество камешков, равное остатку от целочисленного деления n на м+1, а затем в каждый последующий ход забирать столько камешков, чтобы оставшееся их число было кратно m+1. ниже решение на языке borland pascal 7.01 uses crt; var n,m,k: integer; begin clrscr; write('n,m='); read(n,m); k: =n mod (m+1); writeln(k); readkey end. тестовое решение: n,m=7 4 2

Писинчик

Информатика

4,8(59 оценок)

Ниже приведен вариант, когда программа запустится, но не выполнится:

program Zadacha; // удален символ 1

var a, b, c, d, s, p, r, q: integer;

begin // began заменен на begin

write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;

writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;

writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;

writeln (‘Ведите четвертое число=’, d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:

program Zadacha;

var a, b, c, d, s, p, r, q: integer;

begin

write ('Ведите первое число='); read(a);

writeln ('Ведите второе число='); read(b);

writeln ('Ведите третье число='); read(c);

writeln ('Ведите четвертое число='); read(d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:

program Zadacha;

var a, b, c, d, s, p, r: integer;

var q: real;

begin

...

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.