2.Разносчик пиццы Себастьян не гнушается брать чаевые. За смену он успевает сделать D доставок(минимум 1,максимум 18). В среднем на чай он получает 1.25$. Он так привык,что ему дают на чай,что очень расстраивается,когда ему дают меньше. Зато когда ему дают больше 3$,он очень радуется. Посчитайте,сколько раз за смену Себастьян радуется,а сколько расстраивается.
Ответы
Ответ дал:
0
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.
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.
Приложения:
Ответ дал:
0
если ты имеешь ввиду free или turbo pascal
Ответ дал:
0
Если честно,без понятия
Ответ дал:
0
У меня просто не выводит
Ответ дал:
0
Не знаю почему
Ответ дал:
0
Может в лс?
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
10 лет назад