Question

Написать программу на Паскале для поиска номера мест, на которых в слове стоят буквы «к» и «е».

Answer 1

program FindLetters;

const

 Word = 'Jek'; // слово, в котором мы ищем буквы

 Letter1 = 'k'; // первая буква

 Letter2 = 'e'; // вторая буква

var

 i: Integer; // переменная для цикла

begin

 // перебираем каждую букву в слове

 for i := 1 to Length(Word) do

 begin

   // если буква равна Letter1 или Letter2, выводим ее номер

   if Word[i] = Letter1 then

     Write(i, ' ');

   if Word[i] = Letter2 then

     Write(i, ' ');

 end;

end.

При запуске этой программы будут выведены номера мест, на которых стоят буквы "к" и "е" в слове "Jek": 2 3.