Впрограмме описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные r, i. в произведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i: =0 to 10 do a[i]: =i; for i: =0 to 4 do begin k: =a[10-i] ; a[10-i]: =a[i]; k: =a[i] end; чему будут равны элементы этого массива? 1) 10 9 8 7 6 54 3 2 1 0 2) 0 1 2 3 4 5 6 7 8 9 10 3) 0 1 2 3 4 5 4 3 2 1 0 4) 10 9 8 7 6 5 6 7 8 9 10
237
458
Ответы на вопрос:
vars,c,k: string; i: integer; beginwrite ('введите первое слово: '); readln(s); write ('введите второе слово: '); readln(c); while length(s)< > 0 dobegin k: =s[1]; delete(s,1,1); while pos(k,s)< > 0 do delete(s,pos(k,s),1); if pos(k,c)=0 then write('нет ') else write('да '); end; end.
Популярно: Информатика
-
irinakotik1714.04.2021 04:45
-
veselova99909.10.2022 17:59
-
pechenkinaolga509.01.2020 01:43
-
Полина5615.06.2023 16:32
-
alanuit16.01.2023 13:11
-
annakrasnikova228.12.2021 11:37
-
pavel26626.02.2021 23:32
-
gavronovaanna2oz9c0h31.08.2020 23:48
-
Boom11ok07.01.2022 13:11
-
nasstya0517.10.2021 14:38