Регистрация
берик7
05.01.2021 22:08
Информатика
Есть ответ 👍

«переставить соседние» условие переставьте соседние элементы списка (a[0] c a[1], a[2] c a[3] и т. если элементов нечетное число, то последний элемент остается на своем месте. на питоне!

128
284
Посмотреть ответы 1

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

MogekoKcalb
MogekoKcalb
4,8(19 оценок)

var

a: integer;

a1, a2, a3: byte;

begin

read(a);

a3: =a mod 10;

a2: =a div 10 mod 10;

a1: =a div 100;

if (a1=a2) and (a2=a3) then

write(a);

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