Решить. никак не могу. вернее немогу в паскале - вопрос №4553476 от Angelochek167 12.10.2021 11:17

Question

Информатика: Решить. никак не могу. вернее немогу в паскале написать. дан алгоритм: алгоритм сим; а; цел; x, k, m { запросить а; x; =0 если {часть (а, 2, 1)- часть (а, 6, 1)) то {делать от к: =1 до len(a)-2 { делать от m: -к+1 до len(а)-1 {если (часть (а, к, 2) часть (а, м, 2)) то } } } } после его исполнения переменная х имеет значение 4. значение, присвоенное переменной а после исполнения первого оператора в теле алгоритма, могло быть: 1) валентина 2) галина 3) ирина 4) марина

Angelochek167 · Answer

С предоставленным условием явные проблемы. Если взглянуть логически. то вероятное решение следующее:

var
X, K, M: integer;
A: string;
begin
readln(A);
X:=0;
if ( Copy(A, 2, 1) = Copy(A, 6, 1) ) then
  for K:=1 to Length(A)-2 do
  for M:=K+1 to Length(A)-1 do
  if ( Copy(A, K, 2) > Copy(A, M, 2) ) then
  X:=X+1;
writeln(X);
end.