Склавиатуру вводится строка. определить в ней количество пробелов

276

299

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

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

yanapetelyakp070y8

Информатика

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

Var a,b,c: integer; d: string; begin; b: =0; writeln('введите строку'); readln(d); for a: =1 to length(d) do begin if (d[a]=' ') then b: =b+1; end; writeln('количество пробелов в строке ==> ', b); end.

Brot2007

Информатика

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

Var s: string; n,k: integer; begin s: = 'проба она проходит первый раз и можем выполняться'; // несколько раз'; n: =1; while n> 0 do begin n: = pos(' ',s); k: =k +1; delete(s,1,n); end; write(k-1); end.

Diana221648

Информатика

4,7(63 оценок)

Ответ: 648. нот код решения этой на паскале! uses crt; var a,b,c,d, i, n : integer; beginclrscr; n: =0; for i: = 100 to 1000 do begin a: = i div 100; b: = i div 10; b: = b mod 10; c: = i mod 10; if (a = b) or (b = c) or (a = c) then else begin n: = n + 1; end; end; writeln (n); end.

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

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

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

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

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

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

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

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

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

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