Изъятие из целого числа нулей

@Sting95 · Регистрация: 05.10.2013

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

Написать программу используя цикл while-do которая изымает нули из числа.

Должно выглядеть так:
Числа до изъятия нулей:
14.000543
и т.д.

Числа после изъятия нулей:
14.543
и т.д.

@Cyborg Drone · 31.03.2014, 00:35

Верно, что имеются ввиду вещественные числа, если да, как например, должно выглядеть данное число после преобразования: 1.000123E-30?

@Sting95 · 31.03.2014, 01:28 **[ТС]**

можно сделать форматированный вывод, например 3:5.

@Cyborg Drone · 31.03.2014, 01:47

Sting95, Вы не поняли. Тему Вы назвали

Сообщение от Sting95

Изъятие из целого числа нулей

, а пример приводите для вещественного числа. Далее.

Сообщение от Sting95

например 3:5

Освежите свои знания по форматированному выводу. 3:5... Ну-ну... И ещё, будьте внимательней. Как Вы полагаете, что будет напечатано?

Pascal

1	writeln(1.000123E-30:10:5);

Уточните задание.

@Sting95 · 31.03.2014, 02:01 **[ТС]**

Моё задание такое: Изучение циклических операторов. Составить программу на языке Паскаль согласно варианту задания 1. Рассмотреть два варианта алгоритма решения: с циклом с предусловием и циклом с постусловием.
Мой вариант: 8. Изъятие из записи целого числа нулей.

@Cyborg Drone · 31.03.2014, 02:14

Целого числа. Не вещественного. Вот так:

Pascal

var n, d, r, s: integer;
begin
  write('n = ');
  readln(n);
  s := 0;
  d := 1;
  while n <> 0 do
    begin
      r := n mod 10;
      if r <> 0
        then begin
          s := s + r * d;
          d := d * 10
        end;
      n := n div 10
    end;
  writeln('s = ', s);
  readln
end.

Можно ещё через строку. Написано же в задании

Сообщение от Sting95

из записи

Pascal

var s: string;
    i: integer;
begin
  write('n = ');
  readln(s);
  for i := length(s) downto 1 do if s[i] = '0' then delete(s, i, 1);
  writeln('s = ', s);
  readln
end.

Последнее решение, считаю, не айс.

@Sting95 · 31.03.2014, 02:49 **[ТС]**

Cyborg Drone, спасибо большое!
когда сам делал то у меня всё было намешано 1+2 способ как у тебя, поэтому не работало ничего, ещё раз спасибо!

@Sting95 2 / 2 / 0 Регистрация: 05.10.2013 Сообщений: 91
		1
	Изъятие из целого числа нулей 30.03.2014, 22:31. Показов 1076. Ответов 6 Метки нет (Все метки) Написать программу используя цикл while-do которая изымает нули из числа. Должно выглядеть так: Числа до изъятия нулей: 14.000543 и т.д. Числа после изъятия нулей: 14.543 и т.д. 0

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	31.03.2014, 00:35	2
	Верно, что имеются ввиду вещественные числа, если да, как например, должно выглядеть данное число после преобразования: 1.000123E-30? 0

@Sting95 2 / 2 / 0 Регистрация: 05.10.2013 Сообщений: 91
	31.03.2014, 01:28 [ТС]	3
	можно сделать форматированный вывод, например 3:5. 0

@Sting95 2 / 2 / 0 Регистрация: 05.10.2013 Сообщений: 91
	31.03.2014, 02:01 [ТС]	5
	Моё задание такое: Изучение циклических операторов. Составить программу на языке Паскаль согласно варианту задания 1. Рассмотреть два варианта алгоритма решения: с циклом с предусловием и циклом с постусловием. Мой вариант: 8. Изъятие из записи целого числа нулей. 0

@Sting95 2 / 2 / 0 Регистрация: 05.10.2013 Сообщений: 91
	31.03.2014, 02:49 [ТС]	7
	Cyborg Drone, спасибо большое! когда сам делал то у меня всё было намешано 1+2 способ как у тебя, поэтому не работало ничего, ещё раз спасибо! 0

Изъятие из целого числа нулей

Решение