Question

Помогите пожалуйста. Кто может составить блока-схему для программы 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.

Answer 1

Вот блок-схема твоей программы