А)Начало -> Ввод массива -> Ввод 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 больше размера массива если нет -> Возврат на ∨ если да -> Вывод массива -> Конец
var f:text; s,t:string; i,n:integer; y:boolean; //признак наличия слова NO
function wr(c:char):boolean; //определяет, буква или нет begin if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false end;
begin assign(f,'d:/file.txt'); reset(f); repeat readln(f,t); s:=t; y:=false; i:=pos('NO',s); while i>0 do begin n:=length(s); if n=2 then y:=true else begin if i=1 then begin if wr(s[i+2])=false then y:=true; end else if wr(s[i-1])=false then y:=true; end; delete(s,1,i+2); i:=pos('NO',s); end; if y=false then writeln(t); until f.Eof; close(f) end.
Ввод массива ->
Ввод 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 больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец