Авто переноса нету.Есть один но он автоматический который пересьавляет слово на другую строчку если не вмешается
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.
1 день - 10км
2 день - 10км+(10*10)/100=11км
10+11=21км, следовательно во второй день
суммарный пробег 114,358881 (что превышает 100) на 8 день
Первый путешественник за день проходит 1/10 пути
Второй за день проходит 1/15 пути
Вместе за день они проходят 1/10 + 1/15 = 3/30 + 2/30 = 5/30 = 1/6 пути
Значит через 6 дней они встретятся.
Одинаково решаются и другие задачи
Уткам хватает на 30 дней, а гусям на 45 дней.
1/30 + 1/45 = 3/90 + 2/90 = 5/90 = 1/18
И уткам и гусям хватает еды на 18 дней.
Один ученик убирает за 20 минут, а второй - за 30 минут.
1/20 + 1/30 = 3/60 + 2/60 = 5/60 = 1/12
Оба ученика уберут класс за 12 минут
Program n1;
var a,c,b,num: integer;
begin
write('введите число: ');
readln(num);
a:= round(num div 100);
c:=round(num mod 10);
b:=round(((num mod 100)-c)/10);
writeln('сотни: ',a);
writeln('десятки: ',b);
writeln('единицы: ',c);
end.