Яне понимаю в программировании. имеется , решенная в turbo pascal. нужен алгоритм ее решения, т.е. расписать какая операция что делает и сколько всего операций. : напишите программу для проверки, есть ли в данном слове буква «а». если есть, то найдите номер первой из них. решение: var a: string; var i: integer; begin writeln('введите слово'); read(a); for i: =1 to length(a) do begin if (a[i]='а') then begin writeln('найдена буква “а”, ее позиция: ' , i); break; end; end; end.

174

362

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

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

milaboit

Информатика

4,7(9 оценок)

Алгоритм решения следующий: сначала считывается введенное слово в переменную. далее, в цикле от начала слова и до его конца проверяется, является ли текущая буква, равной искомой, то есть букве "а". если такая буква найдена, то выводится её позиция в слове. а теперь комментарий по каждой из строчек кода. // блок объявления переменных var a: string; var i: integer; // начало программыbegin// ввод словаwriteln('введите слово'); // считывание словаread(a); // цикл от 1 до длины считанного слова for i: =1 to length(a) do begin// условие на то, является ли текущая буква заданной if (a[i]='а') then begin// если является, вывод её позиции на экран writeln('найдена буква “а”, ее позиция: ' , i); // и прерывание дальнейшего цикла, выход из него break; // завершение блока "if" end; // завершение циклаend; // завершение программы end.