Question

2.разносчик пиццы себастьян не гнушается брать чаевые. за смену он успевает сделать d доставок(минимум 1,максимум 18). в среднем на чай он получает 1.25$. он так привык,что ему на чай,что расстраивается,когда ему меньше. зато когда ему больше 3$,он радуется. посчитайте,сколько раз за смену себастьян радуется,а сколько расстраивается.

Answer 1

Pascal

var d, i, o, r:integer;
a:real;
begin
read(d);
r:=0;o:=0;
for i:=1 to d do
begin
read(a);
if a < 1.25 then r:=r+1; 
if a > 3 then o:=o+1;
end;
writeln('rad - ', o);
writeln('ras - ', r);
end.