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

0 голосов
38 просмотров

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


Информатика (267 баллов) | 38 просмотров
Дан 1 ответ
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.


image
(2.0k баллов)
0

все, изменил , в цикле не do а to написал

0

Ой,прошу прощения,3 значения,хотя read только 2

0

У меня все нормально, вводишь d - кол-во доставок, а потом пишешь d чаевых

0

А есть разница между pascal и pascalABC.net?

0

не особая

0

если ты имеешь ввиду free или turbo pascal

0

Если честно,без понятия

0

У меня просто не выводит

0

Не знаю почему

0

Может в лс?