Question

Для произвольной фразы определить какие из букв R. O. L. D встречаются в ней. Код в паскале срочно ​

Answer 1

Для выполнения данной задачи можно использовать следующий код на языке Pascal:

program FindLetters;
var
  phrase: string;
  i: integer;
  hasR, hasO, hasL, hasD: boolean;
begin
  hasR := false;
  hasO := false;
  hasL := false;
  hasD := false;

write('Введите фразу: ');
  readln(phrase);

for i := 1 to length(phrase) do
  begin
    if (phrase[i] = 'R') or (phrase[i] = 'r') then
      hasR := true;
    if (phrase[i] = 'O') or (phrase[i] = 'o') then
      hasO := true;
    if (phrase[i] = 'L') or (phrase[i] = 'l') then
      hasL := true;
    if (phrase[i] = 'D') or (phrase[i] = 'd') then
      hasD := true;
  end;

writeln('Буква R встречается в фразе: ', hasR);
  writeln('Буква O встречается в фразе: ', hasO);
  writeln('Буква L встречается в фразе: ', hasL);
  writeln('Буква D встречается в фразе: ', hasD);
end.

Этот код запрашивает у пользователя ввод фразы, а затем проверяет каждую букву в этой фразе на совпадение с буквами R, O, L, D (как в верхнем, так и в нижнем регистре) и выводит соответствующие результаты.