Составить программу, определяющую, имеется ли в строке хотя бы одно слово, начинающееся на "z". Слова разделяются пробелами.

Программа определяет наличие в строке слов, которые начинаются с "z" и "Z".

program letter_z;

var s: string;

k: integer;

begin

writeln ('Введите несколько слов через пробел:');

readln (s);

k: = 0;

for i: integer: = 1 to length (s) do

begin

//Если z в начале строки

if (i = 1) and ((s[1] = 'z') or (s[1] = 'Z')) then k: = k + 1;

//Если с z начинается слово и это слово не первое в строке

if (i > 1) and ((s[i - 1] + s[i] = ' z') or (s[i - 1] + s[i] = ' Z')) then k: = k + 1;

end;

writeln ();

if k > 0 then writeln ('В строке есть слова, начинающиеся с букв "z" (', k, ').')

else

writeln ('В строке нет слов, начинающиеся с буквы "z".')

end.