program balet;
uses
crt;
var
k, n, pc: integer;
var
pd: real;
begin
readln(n);
readln(k);
pd := (n - 3 * k) / 2;
pc := trunc(pd);
if (pd > pc) then
pc := pc + 1 ;
writeln(pc);
readln;
end.
Пояснения:
pc - целое число принятых
pd - дробное число принятых
Так как может возникнуть ситуация, что ровно треть мальчиков от всех учеников сделать не получиться, то используем приём со сравнением числа с дробной частью и без дробной части в числе. Если дробная часть есть, то прибавляем еще одного принятого, чтобы было чуть больше трети от всех.
Пример:
n=59
k=10
pd=14,5
pc=trunc(14,5)=14
{функция trunc полностью отбрасывает дробную часть (не округляет!)}
pd>pc?
Да!
Значит
pc=14+1=15
Считаем.
Если бы мы не добавили к pc единицу, то получилось бы:
А это немного не треть...
А так как мы добавили единицу, то получилось:
То что нам надо!
program z1;
var o1,o2,o3:integer;
sr:real;
begin
repeat
write ('Введите 1 оценку ');
read (o1);
if (o1<2) or (o1>5) then writeln ('Ошибка')
until (o1>1) and (o1<6);
repeat
write ('Введите 2 оценку ');
read (o2);
if (o2<2) or (o2>5) then writeln ('Ошибка')
until (o2>1) and (o2<6);
repeat
write ('Введите 3 оценку ');
read (o3);
if (o3<2) or (o3>5) then writeln ('Ошибка')
until (o3>1) and (o3<6);
sr:=(o1+o2+o3)/3;
if sr<2.5 then writeln('Петя, ты двоечник по информатике')
else
if sr>4.5 then writeln('Петя, ты отличник по информатике')
else
if (sr>=2.5) and (sr<=3.4) then writeln('Петя, ты троечник по информатике')
else writeln('Петя, ты ударник по информатике')
end.
