Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
belanovskii
11 / 2 / 7
Регистрация: 22.10.2013
Сообщений: 61
#1

Заменить каждое третье число - Delphi

06.06.2014, 21:14. Просмотров 423. Ответов 5
Метки нет (Все метки)

подскажите как заменить каждое третье число на 999 ,я просто не понимаю как это записать,
http://www.cyberforum.ru/delphi-beginners/thread680383.html
помогите.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2014, 21:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заменить каждое третье число (Delphi):

Массив: каждое отрицательное число заменить полусуммой двух элементов
нужна помощь массив состоит из n элементов. каждое отрицательное число...

И нужно каждое след число (начиная с 2-ки ) Заменить на среднее арифметическое соседних чисел.
Есть ен-й набор чисел (пр: 1 2 3 4 5 6 7 8 9). И нужно каждое след число...

При нажатии на кнопку последовательно копировать во второй список каждое третье слово из первого списка
Здравствуйте! Как сделать вывод каждого третьего слова из первого списка во...

Строка: Если какой-то символ встречается в строке > 1, второе вхождение символа заменить на 2, третье - на 3 и т.д.
Дана символьная строка из случайных букв. Если какой-то символ встречается в...

Определить третье положительное число и подсчитать количество цифр в нем
Здравствуйте господа! Никак не могу сообразить как решить задачку с помощью...

5
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25600 / 17153 / 6822
Регистрация: 22.10.2011
Сообщений: 30,352
Записей в блоге: 6
06.06.2014, 21:53 #2
Каждое третье число чего?
0
belanovskii
11 / 2 / 7
Регистрация: 22.10.2013
Сообщений: 61
06.06.2014, 23:32  [ТС] #3
Дано натуральное число n. Заменить каждый третий элемент на значение «-999».
0
Taxip
13 / 13 / 11
Регистрация: 28.09.2013
Сообщений: 364
07.06.2014, 00:22 #4
belanovskii, То есть к примеру число 123456789, будет выглядеть так: 129994599978999?
0
belanovskii
11 / 2 / 7
Регистрация: 22.10.2013
Сообщений: 61
07.06.2014, 00:31  [ТС] #5
да.
0
newyork7776
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
Завершенные тесты: 1
07.06.2014, 00:59 #6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var str:String;
    i:integer;
begin
  Write('Enter number = ');Readln(str);
  for i:=1 to Length(str) do
    begin
      write(str[i]);
      if ((i mod 3) = 0) then
        begin
          Write('999');
        end;
    end;
  readln;
end.
0
07.06.2014, 00:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2014, 00:59
Привет! Вот еще темы с решениями:

Найти третье положительное число в последовательности и подсчитать количество цифр в нем
Осуществить ввод последовательности целых чисел определить третье положительное...

Каждое число с новой line в memo
Здравствуйте, такая проблема: вот есть у меня код что var x,y:integer;...

Как вывести каждое число из файла в переменную?
Есть файл rec.txt в который записаны числа в таком виде: 9 38.62751074...

Определить, сколько раз встречалось каждое число из интервала
Здравствуйте! Дано задание: Массив B включает 40 целых чисел из интервала ....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru