Регистрация
Nastya165567
29.03.2023 13:50
Информатика
Есть ответ 👍

На множество. паскаль. дана непустая последовательность состоящая из некоторых букв , латинского алфавита, чисел. вывести на экран все согласные буквы алфавита​

112
303
Посмотреть ответы 2

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

anciferovalex
anciferovalex
4,4(85 оценок)

var  

  str,letter,out: string;

  n,i,j,m: integer;

begin

  out: = 'все cогласные буквы строки: ';

  letter: = 'бвгджзйклмнпрстфхцчшщ';

  writeln('введите строку ');

  readln(str);

  n: = length(str);

  m: = 21;

  for i: = 1 to n do

    for j: = 1 to m do

    begin

      if str[i]=letter[j] then

        out: =out+str[i];

    end;

    writeln(out);

end.

rufina1995
rufina1995
4,4(19 оценок)

1. остановиться на тротуаре перед светофором.

2. посмотреть на светофор.

3. если горит красный или желтый свет, то ждать, пока на светофоре не загорится зеленый.

4. если горит зеленый свет, перейти дорогу до тротуара противоположной стороны улицы.

5. стоп.

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