3 задачи Pascal
Перевести число в строку
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;
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;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.