Простенькие блоксхемы!

@Dimson_KZ · Регистрация: 25.12.2010

Помогите написать блоксхемы на 2 маленькие программы!

Pascal

var s: string;
    i, n, z: integer;
begin
readln (s);
n:=length(s);
for i:=1 to n do
 if s[i] = ',' then z := i;
Writeln (z);
Readln;
end.

Поиск последней запятой!

Pascal

var s: string;
    i, fst,lst: integer;
begin
readln (s);
fst:=pos(',',s);
for i:=length(s) downto 1 do
if s[i]=',' then
lst:=i;
writeln (lst);
end.

Поиск 1вой запятой!

@N@tali · 02.01.2011, 13:33

Вот держи

	02.01.2011, 13:33