Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>
<span>Компьютерные словари.<span> Словари необходимы для перевода текстов с одного языка на другой. Первые словари были созданы около 5 тысяч лет назад в Шумере и представляли собой глиняные таблички, разделенные на две части. В одной части записывалось слово на шумерском языке, <span>а в другой — аналогичное по значению слово на другом языке, иногда с краткими пояснениями.</span></span></span>
А)Начало ->
Ввод массива ->
Ввод X ->
Ввод Y ->
Если X>Y
->no->End
->yes->
p=0 ->
∨-> если элемент массива (p) > X, элемент массива (p) = X ->
если элемент массива (p) < Y, элемент массива (p) = Y ->
p = p + 1 -> если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
б)Начало ->
Ввод массива ->
p=0 ->
∨-> если элемент массива (p) \%(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)\%3
->p=p+1
->если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
А) 6
б) 4
в) 7
о) 5
_____________________________________________________________________
Под буквой A) Ответ будет 100101,то есть в первой строке числа: 37,18,9,4,2,1. А во второй 1,0,1,0,0,1.
B) Ответ будет 334, в первой строке 94,18,3. А во второй 4,3,3