Дано натуральное число n. Заменить каждый третий элемент на значение «-99»

@danniel · Регистрация: 07.10.2014

Студворк — интернет-сервис помощи студентам

Дано натуральное число n. Заменить каждый третий элемент на значение «-99». не массив.
Можете написать просто код.

@Joy · 16.12.2014, 15:19

пример приведите

@danniel · 16.12.2014, 15:21 **[ТС]**

например 3456 нужно получить 34996.

@Joy · 16.12.2014, 18:48

строками можно пользоваться или ограничиться длинным целым?

Добавлено через 10 минут
через строки:

Pascal

var
  n,i:string;
  k:integer;
begin
  write('n=');readln(n);
  i:='';
  for k:=1 to length(n) do if k mod 3=0 then i:=i+'99' else i:=i+n[k];
  writeln(i);
end.

Добавлено через 27 минут
через длинное целое

Pascal

var
  n,i:longint;
  k,j:integer;
begin
  write('n=');readln(n);
  i:=0;k:=0;
  while n>0 do begin k:=k+1;i:=i*10+n mod 10;n:=n div 10;end;
  for j:=1 to k do begin if j mod 3=0 then n:=n*100+99 else n:=n*10+i mod 10;i:=i div 10;end;
  writeln(n);
end.

@danniel 0 / 0 / 0 Регистрация: 07.10.2014 Сообщений: 25
		1
	Дано натуральное число n. Заменить каждый третий элемент на значение «-99» 16.12.2014, 15:13. Показов 467. Ответов 3 Метки нет (Все метки) Дано натуральное число n. Заменить каждый третий элемент на значение «-99». не массив. Можете написать просто код. 0

@Joy 2385 / 1297 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	16.12.2014, 15:19	2
	пример приведите 0

@danniel 0 / 0 / 0 Регистрация: 07.10.2014 Сообщений: 25
	16.12.2014, 15:21 [ТС]	3
	например 3456 нужно получить 34996. 0

Опции темы