Вывести те строки, которые начинаются с буквы ‘b’

@blocker147 · Регистрация: 14.12.2015

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

Задача:
Вводит ряд строк и выводит те из них, которые начинаются с буквы
‘b’.

@Joy · 22.04.2016, 04:23

и когда заканчивается ввод ряда строк?

@blocker147 · 25.04.2016, 16:01 **[ТС]**

пока пользователь отвечает 'y' если пользователь отвечает 'n' то программи завершает работу

@Joy · 25.04.2016, 17:16

Pascal

var
  s:string;
  c:char;
begin
  var l:=new List<string>;
  l.Clear;
  repeat
    write('введите строку:');
    readln(s);
    if s[1]='b' then l.Add(s);
    repeat
      write('Будете еще вводить строки(Y-да, N-нет):');readln(c);
    until c in ['y','Y','n','N'];  
  until not (c in ['y','Y']);
  if l.Count=0 then writeln('отсутствуют строки, начинающиеся с буквы "b"')
  else 
    writeln('строки начинающиеся с буквы "b":'+NewLine+string.Join(NewLine,l.ToArray()));
end.

@blocker147 0 / 0 / 5 Регистрация: 14.12.2015 Сообщений: 186
		1
	Вывести те строки, которые начинаются с буквы ‘b’ 21.04.2016, 18:52. Показов 597. Ответов 3 Метки нет (Все метки) Задача: Вводит ряд строк и выводит те из них, которые начинаются с буквы ‘b’. 0

@Joy 2385 / 1297 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	22.04.2016, 04:23	2
	и когда заканчивается ввод ряда строк? 0

@blocker147 0 / 0 / 5 Регистрация: 14.12.2015 Сообщений: 186
	25.04.2016, 16:01 [ТС]	3
	пока пользователь отвечает 'y' если пользователь отвечает 'n' то программи завершает работу 0

Опции темы