Question

pascal abs: сколько понадобится парт, чтобы рассадить N школьников, если за одну парту можно посадить одного или двух человек? За каждой партов должен сидеть хотя бы один человек

Answer 1

var n,k:integer;
begin
write('N = ');
readln(n);
k:=(n+1) div 2;
writeln('Количество парт может быть от ',k,' (min) до ', n,' (max)');
end.

Пример:
N = 9
Количество парт может быть от 5 (min) до 9 (max)