Pascal abs: сколько понадобится парт, чтобы рассадить N школьников, если за одну парту...

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)

Answer 2

Program prog;
uses crt;

var n :integer;

begin
clrscr;

write('Количество учеников N = ');
readln(n);
writeln('Необходимое количество парт: ', (N/2):0:0, '-', N);
end.