Язык:
Русский
English
{ Пример программы для функции StrCopy }
uses Strings, Crt;
var
S : array[0 .. 15] of Char;
begin
StrCopy(S, 'Turbo Pascal');
WriteLn(S);
end.
var
S : array[0 .. 15] of Char;
begin
StrCopy(S, 'Turbo Pascal');
WriteLn(S);
end.
StrCopy.PAS |
|