программа
- Код: Выделить всё
- 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