программа
- Код: Выделить всё
const
s: Ansistring = 'Ansistring';
begin
writeln(length(s));
end.
что делать?
заранее благодарен.
Модератор: Модераторы
const
s: Ansistring = 'Ansistring';
begin
writeln(length(s));
end.const
s: Ansistring = 'Ansistring';
begin
SetLength(s,length('Ansistring'));
writeln(length(s));
readln;
end.
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: Yandex [Bot] и гости: 1