Блок-схема 2

[kasper182]

Блок-схема 2

program zadacha_1;
Uses CRT;
var s:string;
i,k:byte;
Begin
write ('Vvedite stroky: ');readln(s);
For i:=1 to Length (s)-1 do
if s=s[i+1] then
Begin
writeln(s,s[i+1]);
inc (k);
end;
writeln ('count= ',k);
readln;
End.

 

[kasper182]

Блок-схема 2

 

[Léon1]

Блок-схема 2

Вот:...........