Создать любой типизированный файл ввести туда любую строку и подсчитать количество пробелов.их количество вывести в выходной файл. !

133

204

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

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

overlordcfg

Информатика

4,6(41 оценок)

Var t: text; s: string: i,b: integer; begin readln(s); {ввод строки} i: =0; b: =pos(' ',s); while b< > 0 do begin inc(i); delete(s,b,1); b: =pos(' ',s); end; assign (t, 'c: \primer.txt'); {соединение с файлом primer.txt} rewrite(t); {подготовка к записи в файл} write(t,i); {запись в файл значение переменной "i"} close(t); {завершение работы с файлом} end. создавать файл не обязательно, программа сама его создаст. оцените мой ответ если это то, что вам нужно.

salsa555

Информатика

4,6(39 оценок)

"наименьшее число среди чётных элементов последовательности" - эти слова можно понимать двояко: "элементы, которые стоят на чётных местах в последовательности (второй, четвёртый, шестой и т.д.)" или "элементы, значение которых чётное". поэтому два решения: для элементов, стоящих на чётных местах в последовательности: program starays; uses crt; const n=10; var i,ch,min: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln(); writeln(); writeln('программа запрашивает n чисел, находит наименьшее число среди чётных элементов последовательности'); write('введите 1-e число: '); read(ch); write('введите 2-e число: '); read(ch); min: =ch; for i: =3 to n do begin write('введите ',i,'-e число: '); read(ch); if (min> ch) and (i mod 2=0) then min: =ch; end; writeln('минимальное число среди элементов последовательности с четными номерами равно ',min); end. для элементов, значение которых чётное: program starays; uses crt; const n=10; var i,ch,k,min: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln(); writeln(); writeln('программа запрашивает n чисел, находит наименьшее число среди чётных элементов последовательности'); {находим первый чётный элемент} k: =1; repeat write('введите ',k,'-e число: '); read(ch); k: =k+1; until ch mod 2 = 0; min: =ch; {находим остальные чётные элементы} for i: =k to n do begin write('введите ',i,'-e число: '); read(ch); if (ch mod 2 = 0) and (min> ch) then min: =ch; end; writeln('минимальное число среди элементов, значение которых чётное, равно ',min); end.

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

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

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

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

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

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

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

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

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

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