Можно с обьяснением! 1 определить конечное значение переменных x и y в результате выполнения следующих - id716365220210421 от Grister555 21.04.2021 12:04

Question

Информатика: Можно с обьяснением! 1 определить конечное значение переменных x и y в результате выполнения следующих алгоритмов а x: =2 x: =x x x x: =x x x x x x: =x x x x x x x б x: =1.5 x: =2 x x+1 y: =x/2 y: =x+y x: =x-y 2 поменяйте между собой значения трёх переменных x y z по схеме тройного квартирного обмена x

Grister555 · Accepted Answer

const
z = 30; // максимально число слов
var
s,w : string;
n,p,i,j,l : integer;
words : array [1..z] of string;
kw : array [1..z] of integer;
r : boolean;
begin
writeln ('введите строку');
readln (s);
writeln ('укажите кол-во повторений');
readln (n);
l := Length(s);
p := 1;
w := '';
for i := 1 to l do
if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then
w := w + s[i]
else
begin
for j := 1 to p do
if w = words[j] then
begin
kw[j] := kw[j] +1;
r := true;
end;
if not r then
begin
p := p +1;
words[p] := w;
kw[p] := kw[p] +1;
end;
w := '';
r := false;
   end;
      for i := 1 to p do
if kw[i] > n then
writeln (words[i]);
      end.

MOGZ ответил