Question

Задача 3: НА ЯЗЫКЕ ПАСКАЛЬ

Дан список фамилий (можно вводить слова по одному на обработку, или введите все слова сразу как массив, а затем обработайте). Вывести из этого списка фамилии, начинающиеся на букву «М» и подсчитать количество человек с фамилиями состоящей из пяти символов начинающийся на букву «С».​

Answer 1

program surnames;

const

MAX_SIZE = 100; // максимальный размер списка

var

surnames: array[1..MAX_SIZE] of string;

n, i, count_M, count_S: integer;

begin

// ввод количества фамилий в списке

write('Введите количество фамилий: ');

readln(n);

// ввод фамилий в список

writeln('Введите фамилии:');

for i := 1 to n do

begin

readln(surnames[i]);

if surnames[i][1] = 'М' then // проверяем первую букву фамилии

count_M := count_M + 1;

if (length(surnames[i]) = 5) and (surnames[i][1] = 'С') then // проверяем длину и первую букву фамилии

count_S := count_S + 1;

end;

// вывод фамилий, начинающихся на букву М

writeln('Фамилии, начинающиеся на букву "М":');

for i := 1 to n do

begin

if surnames[i][1] = 'М' then

writeln(surnames[i]);

end;

// вывод количества фамилий, состоящих из 5 символов и начинающихся на букву С

writeln('Количество фамилий, состоящих из 5 символов и начинающихся на букву "С": ', count_S);

readln; // ожидание ввода, чтобы консоль не закрылась сразу после выполнения программы

end.