Правильно ли программа написана?напишите пожалуйста без true,false

@freedom04 · Регистрация: 26.02.2012

Студворк — интернет-сервис помощи студентам

задача: дана последовательность из 50 символов. В ней есть слова, которые могут содержать от 3 до 8 букв. Слова отделяются друг от друга одним или двумя пробелами. Найти слова, у которых первая буква слова входит в слово хотя бы еще раз. Вывести найденные слова на экран.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var 
  s: string[50]; 
  c, bc: integer; 
  iw, dp: boolean; 
  fch: char; 
begin 
  write('строка? '); 
  readln(s); 
  for c := 1 to length(s) do begin 
    if (not iw) and (s[c] <> ' ') then begin 
      iw := true; 
      dp := false; 
      fch := s[c]; 
      bc := c; 
    end 
    else if iw and (s[c] = fch) then 
      dp := true 
    else if iw and (s[c] = ' ') then begin 
      if dp then writeln(copy(s, bc, c - bc)); 
      dp := false; 
      iw := false; 
    end; 
    if iw and (length(s) = c) then 
      if dp then writeln(copy(s, bc, c - bc + 1)); 
  end; 
end.

@TheSN · 23.03.2012, 20:00

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  s, buf: string;
  i: integer;
  fl: boolean;
 
begin
  readln(s);
  s := s + ' ';
  while pos(' ', s) <> 0 do 
  begin
    fl := false;
    buf := copy(s, 0, pos(' ', s) - 1); // строка без первого слова
    for i := 2 to length(buf) do  // сравниваем все буквы с первой
      if buf[i] = buf[1] then fl := true;
    if fl = true then writeln(buf); // совпадения есть? выводим!
    s := copy(s, pos(' ', s) + 1, length(s)); // удаляем первое слово из строки
  end;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .