pascal abs: сколько понадобится парт, чтобы рассадить N школьников, если за одну парту можно посадить одного или двух человек? За каждой партов должен сидеть хотя бы один человек
Answers & Comments
ManulTheLiar
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)
Answers & Comments
begin
write('N = ');
readln(n);
k:=(n+1) div 2;
writeln('Количество парт может быть от ',k,' (min) до ', n,' (max)');
end.
Пример:
N = 9
Количество парт может быть от 5 (min) до 9 (max)
Verified answer
Program prog;uses crt;
var n :integer;
begin
clrscr;
write('Количество учеников N = ');
readln(n);
writeln('Необходимое количество парт: ', (N/2):0:0, '-', N);
end.