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

Question

Информатика

Дормедонт

27 июля, 03:59

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

+5

Ответы (2)

Знаете ответ?

Светлана · 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.