Было всего 5 остановок, в итоге кроме Буратины было 30 пассажиров, если считать Буратину, то тогда 31 пассажир.
Var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.
Паскаль
Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.
Лайк кста
100% 3 способа тв что ето же проще простого