напишите пож-та блок-суму

[4otenado]

program live;
uses CRT;
var i: integer; ch: char;
begin
i:= 0;
repeat
ch;= readkey;
write(ch);
while ch <>#0 do begin
if (ch in ['A'..'Z'])= true then
i:=i+1;
ch:=readkey;
write(ch);
end;
ch:=readkey;
write(ch);
until ch=#64;
writeln ('kolichestvozaglavnihbukv=',i);
end.

[=Apple=]

гм... Блок-суму? О_о

[pavel42]

что то типа того )))

[ROD]

Это не блок-сумма. В блоке-сумме там плюсики разные, а это блок-схема (вы гляньте повнимательнее как вы тему обозвали).

[4otenado]

прошу прощения, ошибочка вышла=)