Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Является ли последовательность цифр числа возрастающей последовательностью? http://www.cyberforum.ru/pascalabc-net/thread658437.html
Выяснить, является ли последовательность цифр натурального числа при просмотре их справа налево возрастающей последовательностью. Например, для числа 76431 ответ положительный, для чисел 6331, 9782 –...
Получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m PascalABC.NET
Даны натуральные числа n, m. Получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m.
PascalABC.NET Оператор ветвления: Найти частное произведений чётных и нечётных цифр данного числа
Дано целое число x(10^5 <= x < 10^6). Найти частное произведений чётных и нечётных цифр данного числа.
PascalABC.NET Если одно число больше другого, то вычислить выражение Даны четыре различных вещественных числа a, b, c, d. Если a больше c, то вычислить min, в противном случае - определить значение выражения max. На языке Паскаль. http://www.cyberforum.ru/pascalabc-net/thread658360.html
PascalABC.NET Найти сумму элементов прямоугольной таблицы http://www.cyberforum.ru/pascalabc-net/thread658015.html
Найти сумму элементов прямоугольной таблицы размером . ввод с новой строки состоит из чисел – количество строк, количество столбцов и самих элементов. вывод содержит число. в паскале авс
Вывести сумму элементов массива с четными номерами PascalABC.NET
Дана целочисленная таблица a вывести сумму элементов с четными номерами.ввод состоит из числа элементов массива и с новой строки самого массива (элементы массива записаны через пробел). вывод...
Нужно вычислить значение функции у при изменении ее аргумента х от -4 до n с шагом 2 PascalABC.NET
Нужно вычислить значение функции у при изменении ее аргумента х от -4 до n с шагом 2:y=x2-2x+2/x2+1. ввод состоит из числа n. вывод содержит несколько чисел, каждое с новой строки, с ограничением 3...
PascalABC.NET Дано число а, получить за шесть операций умножения а64 Дано число а, получить за шесть операций умножения а64. http://www.cyberforum.ru/pascalabc-net/thread658004.html
PascalABC.NET Ожидалась программа, а встречен модуль http://www.cyberforum.ru/pascalabc-net/thread657953.html
Незнаю почему, но теперь всегда выскакивает ошибка во время запуска и компиляции покер на костях.pas(0) : Ожидалась программа, а встречен модуль Никто не знает почему. Вроде все правильно uses...
PascalABC.NET Блок схема программы Нужна блок схема вот этой программы! program format; uses crt; type pstr=^stroka; stroka=record s:string; n:pstr; end; http://www.cyberforum.ru/pascalabc-net/thread657820.html
ermolay
3435 / 2374 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
26.09.2012, 17:25 0

Удалить из записи числа цифры 0 и 5, оставив прежним порядок остальных цифр

26.09.2012, 17:25. Просмотров 885. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено NoviiMir как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  i,n,k: integer;
  m: real;
begin
  write('Введите число n: ');
  readln(n);
  m:=0; i:=0;
  while n>0 do
  begin
    k:=n mod 10;
    if (k<>5)and(k<>0) then
    begin
      m:=m+k*exp(i*ln(10));
      inc(i);
    end;
    n:=n div 10;
  end;
  writeln('Полученное число: ',m);
  readln;
end.


Вернуться к обсуждению:
Удалить из записи числа цифры 0 и 5, оставив прежним порядок остальных цифр
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2012, 17:25
Готовые ответы и решения:

Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр
Всем доброго времени суток. Нужна помощь в написании кода (как сам ни старался, но осознал лишь,...

Удалить из записи числа N цифры 0 и 5, оставив прежним порядок остальных цифр
Дано натуральное число N. Удалить из записи числа N цифры 0 и 5, оставив прежним порядок остальных...

Удалить из записи числа N цифры 0 и 5, оставив прежним порядок остальных цифр
Дано натуральное число N. Удалить из записи числа N цифры 0 и 5, оставив прежним порядок остальных...

Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр
Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок...

Выбросить из записи числа цифры 0 и 5, оставив прежним порядок остальных цифр
1.Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок...

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