Pascal abs: сколько понадобится парт, чтобы рассадить N школьников, если за одну парту можно посадить одного или двух человек? За каждой партов должен сидеть хотя бы один человек
Pascal abs: сколько понадобится парт, чтобы рассадить N школьников, если за одну парту можно посадить одного или двух человек? За каждой партов должен сидеть хотя бы один человек
Гость
Ответ(ы) на вопрос:
Гостьprogram prog;
uses crt;
var n :integer;
begin
clrscr;
write('Количество учеников N = ');
readln(n);
writeln('Необходимое количество парт: ', (N/2):0:0, '-', N);
end.
Гость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)
Не нашли ответ?
Похожие вопросы