а) Запишите элементы действия, примененные в форматирование. No Адреса ячеек Форматирование 1 АЗ-А 11 2 N3-N1 1 Запишите использованные при построении табличной модели формулы. No Адреса ячеек Формула 1 N3 C12 2

Дана строка S, состоящая из слов, разделённых пробелами, и буква c.
Выведите все слова из S, которые начинаются с буквы c.
Формат входных данных
На первой строке входного файла записана буква c. На второй строке дана строка S. Строка S состоит из строчных букв латинского алфавита и пробелов; в ней есть хотя бы одна буква, её длина не превышает 100 символов. c - буква латинского алфавита.
Формат выходных данных
Выведите все слова из S, которые начинаются с буквы c.
Каждое слово выводите на новой строке в том порядке, в котором они встречаются в S.

Объяснение:

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Var A:array[1..100] of integer;

   i,j,k,n:byte;

   b:boolean;

Begin

   write('Введите размерность: ');readln(n);

   k:=0;

   For i:=1 to n do

    Begin

     A[i]:=random(30)-15;

     write(A[i]:4);

    End;

   For i:=1 to n do

    Begin

     b:=true;

     For j:=i+1 to n do

      if A[i]=A[j] then b:=false;

     if b then inc(k);

    End;

   writeln;

   if k>0 then writeln('Различных чисел: ',k) else writeln('Различных чисел нету');

   readln;

End.