• Дан ряд двузначных натуральных чисел. Из него вычёркивают числа, состоящие из одинаковых цифр. Составить алгоритм и описать

Ответы 1

  • program arr;var a, b: array [1..30] of integer;n: integer;beginrandomize;for i :integer:= 1 to 30 dobegina[i]:= random(91) + 9;write(a[i] : 3)end;for i: integer:= 1 to 30 do if a[i] div 10 = a[i] mod 10 then a[i]:= 0;writeln();for i: integer:= 1 to 30 do // создание нового массиваif a[i] > 0 then beginn:= n + 1; b[n]:= a[i]; write(b[n] : 3)end;writeln();write(\' Введите номер элемента в новой последовательности(< \', n + 1, \'): \');readln(n);write(\' \', b[n])end.

    • Автор:

      heathlrya
    • 2 года назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years