Простая задача на цикл

[Оляя]

Помогите, пожалуйста, срочно решить задачу (понимаю, что простая, но мозг тормозит):
Задача 1. Управляющий совет

В управляющий совет школы входят родители, учителя и учащиеся школы, причём родителей должно быть не менее одной трети от общего числа членов совета. В настоящий момент в совет входит N человек, из них K родителей. Определите, сколько родителей нужно дополнительно ввести в совет, чтобы их число стало составлять не менее трети от числа членов совета.
Программа получает на вход два целых числа N и K (N > 0, 0 ≤ K ≤ N), записанные в отдельных строках, — текущее число членов совета и число родителей в совете.
Программа должна вывести единственное число — минимальное число родителей, которое необходимо ввести в совет.
Пример

Ввод

Вывод

27

7

3

В примере совет состоит из 27 человек, из которых родители составляют 7 человек. Если в совет ввести ещё 3 родителей, то в совете станет 30 человек, из которых родителей будет 10.
правильно работающее в случае, когда числа N и K не превосходят 2∙109

[type_Oleg]

Было: N,K
Стало:N+x,K+x
Найти x, такое, чтобы: (K+x)>=(N+x)/3

Ответ: x>=(N-3K)/2

[Оляя]

Ни один из тестов не прошел, выдает не верный формат донных.
Program Str1;
VAR N,K: real;
x:real;
BEGIN
Readln(N,K);
if K <= N then begin
x:=(N-3*K)/2;
Write(x);
end;
END.

[type_Oleg]

А как вводите данные ? У меня прошел...
Кстати, N,K - можно и Integer, так в задании прямо есть намёк на это. А x - конечно только Real, если ничего не менять.
PS После Write(x) наверное надо поставить ReadLn; Иначе сразу закроется. Я запускал в Geany, поэтому не закрывалось.

[Оляя]

я делала и с integer N и К, но надо чтобы Х был в другом формате.
систему не устраивает формат вывода: не 3, а 3.00000000
1.jpg
2.jpg

[type_Oleg]

Program Str1;
uses Math;   //  в нем - функция Ceil
var x,N,K: Integer; // целые значения до 2147483647	
begin
 Readln(N,K);
 if K <= N then 
  begin
   x:=Ceil((N-3*K)/2); // округление до большего целого
   if x<0 then x:=0;  // чтобы минусов не было 
   Write(x);
  end; 
ReadLn;  // чтобы не закрывалась сразу
end.

Правда, я не пойму, а где должен быть цикл ?

[BDA]

Зачем проверка K <= N?
На http://informatics.mccme.ru/moodle/m...ew.php?id=9742 прошло только с longint (компилятор FreePascal).

uses Math;
var
  x, N, K: longint;
begin
  Readln(N, K);
  x := Ceil((N - 3 * K) / 2);
  if x < 0 then x := 0;
  Write(x);
end.

Кто-то зарегистрировал учительский аккаунт?)

[Оляя]

Выдает ошибку компилятора и опять не полное решение, если взять div

[type_Oleg]

Сообщение от Оляя

когда числа N и K не превосходят 2∙109

BDA , да, лучше на LongInt. Integer - он зависимый.

А K <= N? наверное защита от дурака.

[Аватар]

x := Ceil((N - 3 * K) / 2);

Floor вместо Ceil