Var
c : integer;
k : char;
begin
c := 0;
while not eoln do
begin
read (k);
if k = ' ' then
begin
if c > 10 then
begin
write ('YES');
halt;
end;
c := 0;
end
else
c := c + 1;
end;
if c > 10 then write ('YES') else write ('NO');
end. <span>
</span>
Будет! батарея может сдохнуть! если долгое время не подзаряжать планшет, то батарея будет работать хуже, и держать заряд. А если им не пользоваться, но хотябы 1 раз в неделю подзаряжать, то все норм будет
Один первый , три последний. я думаю так. Поставьте лучшее решение.
Вагоны
контролер
пассажиры
2/1/4 не могу дагодаться
Так как функция всегда равна 1, то построил графики ее элементов.