• Прошу написать программу для создания чисел, состоящих из двух одинаковых чисел из заданного диапазона. Например: из 210345 и 210345 должно получиться 210345210345 , из 210666 и 210666 - 210666210666 Диапазон - от 100000000000 до 400000000000 Похожая программа выложена на http://znanija.com/task/7625483 Но там создавались зеркальные числа: 1221, 123321 Благодарю за внимание.

Ответы 2

  • // PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  Writeln(ReadlnString('Введите исходное число:')*2)end.Тестовое решениеВведите исходное число: 210345210345210345
  • Var a:longint;Begin write('Введите число: '); readln(a); writeln('Вывод: ',a,a)End.
    • Автор:

      josep
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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