Ответы на вопрос:
Var a: array[1..5] of integer; j,l,i,k,n: integer; begin readln(n); while not(n=0) do begin k: =k+1; a[k]: =n mod 10; n: =n div 10; end; for i: =1 to min(3,k) do begin n: =a[i]; l: =0; for j: =1 to k do if n=a[j] then l: =l+1; if l> =3 then begin writeln('в записи есть три одинаковых чисел'); l: =20; break; end; end; if not(l=20) then writeln('в записи нет трех одинаковых чисел'); end.
Популярно: Информатика
-
tolkov0507.07.2022 08:34
-
sokolovan06122.06.2021 11:46
-
мопс17310.07.2022 23:42
-
lyis24.11.2021 11:17
-
рррррррх04.11.2021 23:45
-
natasha2017060501.04.2020 16:17
-
PWBC20.04.2023 18:22
-
YULIAJUICE28.06.2020 14:53
-
знайчушка24.06.2021 03:04
-
titovazaiceva05.11.2020 09:08