Int A[6];
bool B = false;
for(int i = 0; i < sizeof(A); i++) {
A[i] = random(6);
if(i > 0 && A[i-1] == A[i])
B = true;
}
cout << "Массив: " << A[0] << A[1] << A[2] << A[3] << A[4] << A[5] << endl;
if(B == true)
cout << "Есть" << endl;
else
cout << "Нет" << endl;
Повторить 200 - внешний.
идти 5 шагов - вложенный.
если край,то оттолкнуться - вложенный.
ждать три секунды - вложенный.
Вот точки в десятичной системе: (4,7),(6,11),(10,11),(12,7),(12,4),(13,3),(12,2),(12,3),(11,6),(8,3),(8,1),(6,1),(6,3),(4,3),(4,1),(2,1),(2,5)
Получилось что-то такое.
<em>// PascalABC.NET 3.2, сборка 1509 от 27.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function SumDig(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray;
Write('Палинодромы: ');
a.Select(x->x.ToString).Where(x->x=x.Inverse).Println;
var k:=ReadInteger('Введите простое число');
Write('Числа, сумма цифр которых больше введенного: ');
a.Where(x->SumDig(x)>k).Println
end.
<u>Пример</u>
n= 12
Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573
Палинодромы: 4664 9889
Введите простое число 19
Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573