Правила форума
Прочтите прежде чем задавать вопрос!
Код
var s : string[10];
b : byte;
begin
for b :=1 to 10 do begin writeln('s[',b,']='); readln(s[b]) end;
{ это мы ввели посимвольно строку }
{ for b:=1 to 10 do s:=s+s[b]; } {*******}
writeln('s=',s);
{ ПОЧЕМУ СТРОКА НЕ ВЫВОДИТСЯ ? }
{ теперь раскоментируйте ******* и ВСЕ ПОЛУЧИТСЯ! }
end.
b : byte;
begin
for b :=1 to 10 do begin writeln('s[',b,']='); readln(s[b]) end;
{ это мы ввели посимвольно строку }
{ for b:=1 to 10 do s:=s+s[b]; } {*******}
writeln('s=',s);
{ ПОЧЕМУ СТРОКА НЕ ВЫВОДИТСЯ ? }
{ теперь раскоментируйте ******* и ВСЕ ПОЛУЧИТСЯ! }
end.
ПОЖАЛУЙСТА, ОБЪЯСНИТЕ ЭТО МНЕ, ЕСЛИ ЗНАЕТЕ! ??? ???
Сообщение отредактировано: volvo -
