Решить. никак не могу. вернее немогу в паскале написать. дан алгоритм: алгоритм сим; а; цел; x, k, m { запросить а; x; =0 если {часть (а, 2, 1)- часть (а, 6, 1)) то {делать от к: =1 до len(a)-2 { делать от m: -к+1 до len(а)-1 {если (часть (а, к, 2)> часть (а, м, 2)) то } } } } после его исполнения переменная х имеет значение 4. значение, присвоенное переменной а после исполнения первого оператора в теле алгоритма, могло быть: 1) валентина 2) галина 3) ирина 4) марина
Senavn
1
09.07.2019 11:50
9
Другие вопросы по теме Информатика
Lego40
20.04.2020 16:28
daniilf02mail
20.04.2020 16:28
МЯУСИМ2007
20.04.2020 16:28
Пони20171
20.04.2020 16:28
NastyaTeplova
16.03.2022 02:48
kikl33
19.04.2021 11:44
andreevaa995
18.06.2019 08:50
Walentinawella12
18.06.2019 08:50
sapronovakaty
18.06.2019 08:50
Популярные вопросы
- Поработайте с датами :Рим праздновал тысячелетие от основания...
1 - Причини з яких не можна пірнати там де з води стирчать корчі....
1 - Рассказ об одном из представителей народов России только серьёзно...
3 - Сторона рівностороннього трикутника дорівнює 63√ см. Обчисли:...
3 - Какие высказывания о населении Китая являются верными? 60 % китайцев...
1 - Довести наявність кислоти в помідорах можливо за до лакмусу 2...
3 - Яку державу у 1206 році заснував Кутб-уд-дін Айбек на півночі...
2 - Укажите, где перед союзом и необходима запятая. Варианты ответов...
3 - 1 Перерисуйте в тетрадь рисунок 7 Проведите через точку B: 1)...
3 - очень не писать в иннет есть, я знаю что есть но мне нужно чтоб...
2
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.