Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+116
var
s1:string;
i:integer;
const
m=50;
begin
write ('Введите строку: ');
for i:=1 to m do
begin
write ('s1[',i,']');
readln (s1[i]);
end;
writeln ('Длина строки: ', length(s1));
end.Это Pascal. Вот так студенты физмата вводят строку, а потом считают ее длину.
Запостил: 
nanovsky,
28 Апреля 2011
Follow us!
Паскаль, ведь, насколько помню, всегда ждет символ при read и просто при нажатии Enter ничего не будет.
какой паскаль, кстати? у борланда например строка как была так и останется нулевой длины
Только надо было не по 4 символа тогда уж, а по 8.
этож всем известно и очевидно
дельфи всегда вылетает
stroka:string;
begin
write('vvedite stroku: ');
readln(stroka);
writeln('dlina stroki=',length(stroka));
readln;
end.
Так веть?))