Регистрация
moranikatya
03.06.2020 04:24
Информатика
Есть ответ 👍

+ Online Mektep - BilimLa X Online Mektep - BilimLand і правила записи арифметических выражении. У Определи истинность утверждения. nоt(23 > 0) or (23! = 21) True False С Провери Назад !!

164
241
Посмотреть ответы 1

Ответы на вопрос:

Iejsjsjsj
Iejsjsjsj
4,8(3 оценок)
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.

Популярно: Информатика