Кто может составить блока-схему для программы uses crt; var s,b: string; i,x: integer; begin writeln('введите строку'); readln(s); for i: =1 to length(s) do begin if s[i]=' ' then break; b: =s[i]+b; inc(x); end; writeln(b); write('количество букв в слове=', x); end.

ЧакН0рис    3   18.06.2019 09:10    0