Форум «Всё о Паскале» > Функция на Стринги

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;

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.