Напишите программу пересчета из одной величины в другую. 1 верста-10668б8 м

1 верста-500 саженей

1 сажень- 3 аршина

1 аршина - 16 вершков

1 вершок- 4,45 см

1 фут - 0,254 см

1 морская миля - 1852,2 м

1 пуд - 16,38 кг

. от

233

299

Посмотреть ответы 1

Ответы на вопрос:

КрендельЙА

Информатика

4,4(38 оценок)

Function posblank(s: string; cursor: integer): integer; {возвращает позицию первого пробельного символа в строке s, начиная с позиции, указанной cursor. если такого символа нет, возвращает 0.} var n: integer; begin n : = length(s); while (s[cursor] < > ' ') and (cursor < n) do cursor : = cursor + 1; if cursor = n then if s[cursor] = ' ' then posblank : = n else posblank : = 0 else posblank : = cursor end; function posnonblank(s: string; cursor: integer): integer; {возвращает позицию первого непробельного символа в строке s, начиная с позиции, указанной cursor. если такого символа нет, возвращает 0.} var n: integer; begin n : = length(s); while (s[cursor] = ' ') and (cursor < n) do cursor : = cursor + 1; if cursor = n then if s[cursor] = ' ' then posnonblank : = 0 else posnonblank : = n else posnonblank : = cursor end; procedure getword(s: string; var cursor: integer; var wd: string); {процедура помещает в wd очередное слово из строки s начало слова указано в cursor, после завершения процедуры cursor будет указывать на первый пробельный символ, следующий за найденным словом. лидирующие и хвостовые пробельные символы усекаются. если слово не найдено, то в wd помещается пустая строка} var n, ibegin: integer; begin n : = length(s); if n> 0 then begin cursor : = posnonblank(s, cursor); if cursor > 0 then begin ibegin : = cursor; cursor : = posblank(s, cursor); if cursor > 0 then wd : = copy(s, ibegin, cursor - ibegin) else wd : = copy(s, ibegin, n - ibegin + 1) end else wd : = '' end else begin wd: =''; cursor: =0 end end; var c, cc, w: string; ic: integer; fin, fout: text; begin assign(fin, 'input.txt'); reset(fin); assign(fout, 'output.txt'); rewrite(fout); while not eof(fin) do begin ic : = 1; cc : = ''; readln(fin, c); while ic > 0 do begin getword(c, ic, w); if w < > '' then cc : = cc + ' ' + w end; cc : = copy(cc, 2, length(cc) - 1); writeln(fout, cc) end; close(fin); close(fout); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.