Re: 3 задачи Pascal
Добавлено: 27 май 2008, 15:12
Только три
Перевести число в строку
function is_3_even(s: string): boolean;
begin
is_3_even:=((s[1]=s[2]=s[3]) or (s[1]=s[2]=s[4]) or (s[1]=s[3]=s[4]) or (s[2]=s[3]=s[4])) and not (s[1]=s[2]=s[3]=s[4]);
end;