Алгоритм решения следующий:
Сначала считывается введенное слово в переменную. Далее, в цикле от начала слова и до его конца проверяется, является ли текущая буква, равной искомой, то есть букве "а". Если такая буква найдена, то выводится её позиция в слове.
А теперь комментарий по каждой из строчек кода.
// Блок объявления переменных
<span>var a:string;
var i:integer;
// Начало программы
begin
// Ввод слова
writeln('Введите слово');
// Считывание слова
read(a);
</span>// Цикл от 1 до длины считанного слова<span>
for i:=1 to length(a) do begin
</span>// Условие на то, является ли текущая буква заданной<span>
if (a[i]='а') then begin
</span>// Если является, вывод её позиции на экран<span>
writeln('Найдена буква “а”, ее позиция:' , i);
</span>// и прерывание дальнейшего цикла, выход из него<span>
break;
</span>// Завершение блока "if"<span>
end;
</span>// <span>Завершение цикла
end;
</span>// Завершение программы<span>
end.</span>
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
Может из двоичной в восьмиричную? если да, то так:
11011011=333
11000001=301
1101011=153
11010001=321
Как я поняла, нужно написать, как это помогает управлению своими действиями.
Например :
порядок выполнения арифметических действий - правильное решение примера