Помогите пожалуйста. Кто может составить блока-схему для программы 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...
Помогите пожалуйста.
Кто может составить блока-схему для программы
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.
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы