Напишите программу, которая из данной строки выделяет строку, состоящую из заглавных латинских букв

@Nariiana · Регистрация: 22.11.2018

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

@ZX Spectrum-128 · 11.12.2018, 12:19

Pascal

const
  mn = [' ', ',', '.', '!', '?'];
 
var
  s, s1: string;
  j, i, k: byte;
  q: array[1..20] of string;
  f: boolean;
 
begin
  {write('Введите строку: ');
  readln(s);}
  s := 'madam DUCK kazak tank no GATES';
  s := s + ' ';
  s1 := '';
  for i := 1 to Length(s) do
  begin
    if not (s[i] in mn) then 
      s1 := s1 + s[i]
     else
    begin
      inc(k);
      q[k] := s1;
      s1 := '';
    end;
  end;
  for i := 1 to k do
  begin
    f := true;
    for j := length(q[i]) downto 1 do
      if not (q[i][j] in ['A'..'Z']) then
      begin
        f := false;
        break;
      end;
    if f then 
      writeln(q[i]);
  end;
end.

@Nariiana 0 / 0 / 0 Регистрация: 22.11.2018 Сообщений: 23
		1
	Напишите программу, которая из данной строки выделяет строку, состоящую из заглавных латинских букв 10.12.2018, 23:02. Показов 4032. Ответов 1 Метки нет (Все метки) Напишите программу, которая из данной строки выделяет строку, состоящую из заглавных латинских букв 0

	11.12.2018, 12:19