Составить блок-схему

@Илюха12345 · Регистрация: 01.06.2012

Author24 — интернет-сервис помощи студентам

помогите пожалуйста составить блок схему к программе

Pascal

program vosdva;
uses crt;
var s,ss:string;
     i,k:integer;
begin
 writeln('Vvedite stroku ');
 readln(s);
ss:='';
k:=0;
for i:=1 to length(s) do
begin
 if s[i] in ['a'..'z'] then
 begin
  ss:=ss+s[i];
  if s[i]='a' then k:=k+1;
 end;
 if not(s[i] in ['a'..'z'])or(i=length(s))then
 begin
  if k>1 then writeln(ss);
    ss:='';
    k:=0;
 end;
end;
readln;
end.

@Puporev · 14.08.2012, 11:25

Илюха12345, Если уж нифига не умеешь, то научись хотя бы вставлять свой код в теги, поверь это не сложно.

@CodeR · 14.08.2012, 11:32

Держи...

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	14.08.2012, 11:25	2
	Илюха12345, Если уж нифига не умеешь, то научись хотя бы вставлять свой код в теги, поверь это не сложно. 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,603 Записей в блоге: 1
	14.08.2012, 11:32	3
	Держи... Миниатюры 1