Автор: GAI 6.02.2004 10:49
написать функцию strend(s,t), которая выдаёт 1, если стринг t расположен в конце стринга S, и 0 в противном случае
Заранее благодарен!
Автор: P@sh@ 6.02.2004 12:54
Код
function strend(s,t: string): integer;
begin
delete(s,1,length(s)-length(t));
result:=integer(s=t);
end;