Суть такова: дана строка, состоящая из групп нулей и единиц. каждая группа отделяется от другой одним или несколькими пробелами. подсчитать количество символов в самой длинной группе. нашел вот такой исходник, пытался понять но так и не понял, объясните кто-нибудь код) procedure tform1.button1click(sender: tobject); var s: string; i, l,c, m: integer; z, u: boolean; begin if combobox1.text< > '' then begin s: =combobox1.text; combobox1.items. insert(0,s); l: =length(s); z: =false; u: =false; c: =0; m: =0; for i: =1 to l do begin if ((s[i]='0')and not z)or((s[i]='1')and not u)then begin if m end; if ((s[i]='0')and not z) then begin u: =false; z: =true; c: =0; end; if ((s[i]='1')and not u) then begin u: =true; z: =false; c: =0; end; if ((s[i]='0')and z)or((s[i]='1')and u)then c: =c+1; end; if m label1.caption: ='количество символов в самой длинной группе: '+inttostr(m); end; end;

ну вроде "алгоритм" переходит в "терминал", хотя по буквам не получается - только последние 5 нормально встают и то, если в алфавите нет ё и й

1. вывести на экран 6 раз своё имя

program imya;

const n=6;

var i: integer;

begin

for i: =1 to n do

writeln('ваше имя');

end.

пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). ещё хочу отметить, что имя вводится по- и нельзя терять апострофы ( ' ).

2. program sum;

var sum: integer;

m: array[1..4] of integer;

i: integer;

begin

m[1]: =6

for i: =2 to 4 do begin

m[i]: =m[i-1]+1;

end;

sum: =m[1];

for i: =2 to 4 do begin

sum: =sum+m[i];

end;

writeln(sum);

end.

пояснения: можно было делать и по-другому, но так тоже верно. тут использовалось два цикла и массив. а блок-схему сами

3. program n! ;

var n: real;

c: integer;

m: array[1..n] of integer;

begin

readln(n)

m[1]: =1;

for i: =2 to n do begin

m[i]: =m[i-1]+1;

end;

c: =m[1]

for i: =1 to n do begin

c: =c*m[i];

end;

writeln('n! ',c);

end.

если что не понятно, пишите, объясню