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

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

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

подскажите как заменить каждое третье число на 999 ,я просто не понимаю как это записать,
помогите.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2014, 21:14
Ответы с готовыми решениями:

Даны две строки символов S1 и S2. В S1 каждое нечетное число увеличит на 5, а в S2 каждое четное число увеличить на 8
Даны две строки символов S1 и S2. В S1 каждое нечетное число увеличит на 5, а в...

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

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

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

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

5
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26120 / 17516 / 6947
Регистрация: 22.10.2011
Сообщений: 30,854
Записей в блоге: 6
06.06.2014, 21:53 2
Каждое третье число чего?
0
belanovskii
11 / 2 / 0
Регистрация: 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 / 0
Регистрация: 22.10.2013
Сообщений: 61
07.06.2014, 00:31  [ТС] 5
да.
0
newyork7776
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,313
Завершенные тесты: 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;...


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

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

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