Дан массив из N частей найти сколько частей массива начинаются и

Дан массив из N элементов найти сколько частей массива начинаются и кончаются одной и той же цифрой (Паскаль)

Задать свой вопрос
1 ответ

begin

 var n := ReadInteger();

 var a := ReadArrInteger(n);

 var Count := 0;

 foreach var x in a do

 begin

   var s := x.ToString;

   if s[1] = s[s.Length] then Count += 1

 end;

 Print(Count)

end.

Олег Ясинявский
спасибо огромное, вот только половину мы не проходили ещё
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт