program name;
uses crt;
var str: string;
i, count: integer;
begin
write('Текст : ');readln(str);
i := length(str);
if i > 0 then begin
count := 1;
while i > 0 do begin
if str[i] = ' ' then
count := count + 1;
i := i - 1;
end;
end
else
count := 0;
writeln('Кол-во строк в тексте: ', count);
readln;
end.
var a:array[1..10] of integer;
i,tmp:integer;
begin cls;
for i:=1 to 10 do a[i]:=i;
for i:=1 to 10 do
begin
if i mod 2 = 1 then
begin
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
end;
end;
for i:=1 to 10 do
write(a[i], ' ');
end.
1) загоняем синий шарик в нишу
2) прогоняем мимо него все красные направо
3) выкатываем его из ниши и вытаскиваем его из жолоба
4) иди к п 1)