Выясните, есть ли в этой последовательности хотя бы одно двухзначное число, состоящее из одинаковых цифр

@KiberUm · Регистрация: 02.04.2018

Дано n целых чисел. Выясните, есть ли в этой последовательности хотя бы одно двухзначное число, состоящее из одинаковых цифр.

@Puporev · 28.04.2018, 09:34

Pascal

i:=1;
k:=0;
while (i<=n)and(k=0)do
if(a[i] in [10..99])and(a[i] div 10=a[i] mod 10) then k:=1;
if k=1 then write('Есть') else write('Нет')

@KiberUm 0 / 0 / 0 Регистрация: 02.04.2018 Сообщений: 63
		1
	Выясните, есть ли в этой последовательности хотя бы одно двухзначное число, состоящее из одинаковых цифр 27.04.2018, 21:08. Показов 1293. Ответов 1 Метки нет (Все метки) Дано n целых чисел. Выясните, есть ли в этой последовательности хотя бы одно двухзначное число, состоящее из одинаковых цифр. 0

	28.04.2018, 09:34

Решение