Задача.Длинное число

23.10.2013, 22:24. **Показов** 3218. **Ответов** 2

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

Дано натуральное число.Разделите точками цифры этого числа группами по три,начиная справа.
Программа получает на вход натуральное число,содержащее не более 100 цифр.
Программа должна вывести то же число с точками между некоторыми цифрами этого числа.

Не могу написать эту программу,я новичёк в турбо паскале.
Помогите написать,пожалуйста.
Пример:
22345983 : 22.345.983

@Puporev · 24.10.2013, 08:39

Pascal

uses crt;
var n:string;
    i,k:byte;
begin
clrscr;
writeln('Введите натуральное число дл 100 цифр');
readln(n);
k:=0;
i:=length(n);
while i>1 do
 begin
  k:=k+1;
  i:=i-1;
  if k mod 3=0 then insert('.',n,i+1)
 end;
write(n);
readln
end.

@Напильнег · 24.10.2013, 13:35

Puporev, а без делений, что, никак нельзя было обойтись?

Pascal

uses crt;
 
var
  n: string;
  i: word;
 
begin
  clrscr;
 
  writeln('Введите натуральное число дл 100 цифр');
  readln(n);
 
  i:=length(n);
  while (i>3) do begin
    insert('.', n, i-2);
    i:=i-3;
    end;
 
  writeln(n);
  readln
end.

- и лишняя переменная не понадобилась.

suslan12
		1
	Задача.Длинное число 23.10.2013, 22:24. Показов 3218. Ответов 2 Метки нет (Все метки) Дано натуральное число.Разделите точками цифры этого числа группами по три,начиная справа. Программа получает на вход натуральное число,содержащее не более 100 цифр. Программа должна вывести то же число с точками между некоторыми цифрами этого числа. Не могу написать эту программу,я новичёк в турбо паскале. Помогите написать,пожалуйста. Пример: 22345983 : 22.345.983

	24.10.2013, 13:35

Задача.Длинное число

Решение