в этом задании несколько правильных ответов, а)length(s) b)copy(a,n,k) c)delete(s,n,k) d)pos(s1,s2)
2^8072+2^4036+2^5-2^0
10.....00 + 1 ....0 + 100000 - 1
10.....0010......0011111
7 единиц
Зачем в программе вообще стоит запрос х?
1)Нужно убрать из программы запрос х
2) строчка цикла должна выглядеть так :"For x:=(-8) to 0 do"
По идее должно заработать
Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>
Const
n=10;
var
i,im:integer;
a:array[1..10] of integer;
begin
Randomize;
im:=1;
for i:=1 to n do begin
a[i]:=Random(21)+1;
Write(a[i],' ');
if a[i]<a[im] then im:=i
end;
Writeln;
Writeln('Минимальный элемент a[',im,']=',a[im])
end.
<u>Пример</u>
20 13 16 7 9 4 21 13 2 10
Минимальный элемент a[9]=2