2.Разносчик пиццы Себастьян не гнушается брать чаевые. За смену он успевает

2.Разносчик пиццы Себастьян не гнушается брать чаевые. За смену он успевает сделать D доставок(минимум 1,максимум 18). В среднем на чай он получает 1.25. Он так привык,что ему дают на чай,что очень расстраивается,когда ему дают меньше. Зато когда ему дают больше 3,он очень довольствуется. Посчитайте,сколько раз за смену Себастьян довольствуется,а сколько расстраивается.

Задать свой вопрос
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 lt; 1.25 then r:=r+1; 
if a gt; 3 then o:=o+1;
end;
writeln('rad - ', o);
writeln('ras - ', r);
end.
Шкленник Алла
все, изменил , в цикле не do а to написал
Арина Рудамир
Ой,прошу помилованья,3 значения,желая read только 2
Boris Kljuchinkov
У меня все нормально, вводишь d - кол-во доставок, а позже пишешь d чаевых
Mihon Naimi
А есть разница меж pascal и pascalABC.net?
Камилла
не особенная
Галина Буданцева
если ты имеешь ввиду free или turbo pascal
Ульяна Богатенко
Если правдиво,без понятия
Olesja Puchinina
У меня просто не выводит
Игорь Виклин
Не знаю почему
Максим
Может в лс?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт