Задача по языку программирования Pascal n школьников делят k яблок “поровну”, то есть...

0 голосов
214 просмотров

Задача по языку программирования Pascal
n школьников делят k яблок “поровну”, то есть так, чтобы количество яблок, доставшихся любым двум школьникам, отличалось бы не более, чем на 1.

Входные данные
Программа получает на вход числа n и k.

Выходные данные
Программа должна вывести количество школьников, которым достанется яблок меньше, чем некоторым из их товарищей.


Информатика (68 баллов) | 214 просмотров
Дан 1 ответ
0 голосов
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

Begin
var (n, k) := ReadInteger2('Введите n и k');
Writeln(k - (k div n) * n);
end.

(8.8k баллов)
0

если будет угодно, перепишите под свой, идею я подал и реализовал на PascalABC.NET

0

По которому не программируют уже +20 лет. Это задача из http://informatics.mccme.ru

0

Всё равно спасибо.

0

Ужас...ну формула подойдет под любой паскаль, которая k - (k div n) * n

0

да, я сейчас пытаюсь преобразовать скинутую мной формулу под то что вы мне дали)

0

Можно ли ещё вопрос?

0

var n,k,x:integer;
begin
readln(n,k);
x:=k-n mod k;
writeln('x=',x);
end.

0

Совсем неправильно

0

Ни один тест не прошло...

0

хмм,..может потому, что там фаловый ввод вывод?