- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
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.
7ion 28.04.2011 18:57 # −2
nanovsky 28.04.2011 18:59 # 0
7ion 28.04.2011 19:05 # +2
Паскаль, ведь, насколько помню, всегда ждет символ при read и просто при нажатии Enter ничего не будет.
nanovsky 28.04.2011 19:06 # 0
bugmenot 28.04.2011 19:57 # +3
какой паскаль, кстати? у борланда например строка как была так и останется нулевой длины
nanovsky 28.04.2011 19:58 # 0
bugmenot 28.04.2011 20:12 # +1
nanovsky 28.04.2011 20:14 # 0
SmackMyBitchUp 28.04.2011 19:05 # +3
nanovsky 28.04.2011 19:08 # +6
Govnocoder#0xFF 28.04.2011 19:12 # +2
nanovsky 10.08.2011 11:23 # 0
bugmenot 28.04.2011 19:32 # +4
nanovsky 28.04.2011 19:35 # +2
TarasB 29.04.2011 09:37 # +3
Только надо было не по 4 символа тогда уж, а по 8.
TarasB 29.04.2011 09:36 # +2
nanovsky 29.04.2011 09:40 # −2
Lure Of Chaos 29.04.2011 12:31 # −4
guest 29.04.2011 22:49 # −2
этож всем известно и очевидно
дельфи всегда вылетает
KATAJIU3ATOP 04.05.2011 21:36 # +3
nanovsky 05.05.2011 19:31 # 0
guest 22.07.2011 14:52 # +2
nanovsky 10.08.2011 11:21 # 0
guest 25.10.2011 13:58 # +1
stroka:string;
begin
write('vvedite stroku: ');
readln(stroka);
writeln('dlina stroki=',length(stroka));
readln;
end.
Так веть?))
nanovsky 23.03.2012 23:21 # 0