Нижняя цепочка - все пятёрки, то бишь 5 5 5 5 5 Про верхнюю не написано ничего, кроме того, что это не пятёрки, и все одинаковые, но их 5, то есть это 1 1 1 1 1 или 2 2 2 2 2 или 3 3 3 3 3 или 4 4 4 4 4 или 6 6 6 6 6 или 7 7 7 7 7 или 8 8 8 8 8 или 9 9 9 9 9 или 0 0 0 0 0. Если я ничего не упустил.
var s: string; i, j, n: integer; c: char; flag: boolean;
begin Write('Введите произвольное число: '); Readln(s); flag := false; n := length(s); i := 1; while (i <= n) and (not flag) do begin c := s[i]; j := i + 1; while (j <= n) and (not flag) do if s[j] = c then flag := true else j := j + 1; if (not flag) then i := i + 1 end; if flag then Writeln('Символ "', c, '" встречается больше одного раза') else Writeln('Все символы уникальны') end.
Тестовое решение: Введите произвольное число: -1453.5462 Символ "4" встречается больше одного раза
В предыдущем вопросе я написала решение. program z; var a,b,c,d,e,x,g,h:integer; begin write('Введите пятизначное число'); read(x); a:= x mod 10; b:= x mod 100; b:= b div 10; c:= x mod 1000; c:= c div 100; d:= x mod 10000; d:= d div 1000; e:= x mod 100000; e:= e div 10000; if a mod 2=0 then h:=a else g:=a; if b mod 2=0 then h:=h+b else g:=g+b; if c mod 2=0 then h:=h+c else g:=g+c; if d mod 2=0 then h:=h+d else g:=g+d; if e mod 2=0 then h:=h+e else g:=g+e; writeln(' Сумма нечётных цифр равна ', g); write(' Сумма чётных цифр равна ', h); end.
Про верхнюю не написано ничего, кроме того, что это не пятёрки, и все одинаковые, но их 5, то есть это 1 1 1 1 1 или 2 2 2 2 2 или 3 3 3 3 3 или 4 4 4 4 4 или 6 6 6 6 6 или 7 7 7 7 7 или 8 8 8 8 8 или 9 9 9 9 9 или 0 0 0 0 0. Если я ничего не упустил.