Предмет: Информатика,
автор: dolud
Помогите решить. никак не могу. Вернее немогу в Паскале написать.
Дан алгоритм:
Алгоритм
сим; А; цел; X, K, M
{ Запросить А;
X;=0
Если {Часть (А, 2, 1)- Часть (А, 6, 1)) то
{Делать от К:=1 до LEN(A)-2
{ Делать от M:-К+1 до LEN(А)-1
{Если (Часть (А, К, 2)>Часть (А, М, 2))
то
}
}
}
}
После его исполнения переменная Х имеет значение 4. Значение, присвоенное переменной А после исполнения первого оператора в теле алгоритма, могло быть:
1) ВАЛЕНТИНА 2) ГАЛИНА 3) ИРИНА 4) МАРИНА
Ответы
Автор ответа:
0
С предоставленным условием явные проблемы. Если взглянуть логически. то вероятное решение следующее:
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.
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.
Интересные вопросы
Предмет: История,
автор: parol23690
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Геометрия,
автор: Ltlf
Предмет: История,
автор: 9lerka9
Предмет: Биология,
автор: froggi01