Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Используя оператор цикла с предусловием, вычислить сумму ряда Используя оператор цикла с предусловием, вычислить сумму ряда с точностью ε=10-3: S=\sum_{n=0}^{}{\left(-1 \right)}^{n}\frac{\left(n+1 \right){e}^{-2n}}{\left(2n+1 \right)!} Над сигмой знак бесконечности, не знаю почему не отображается. https://www.cyberforum.ru/ turbo-pascal/ thread902812.html	Удвоить значения положительных элементов массива и обнулить отрицательные Turbo Pascal Разработать алгоритм и составить программу на языке программирования Pascal для обработки одномерного массива С(15), введенного с клавиатуры и не имеющего нулевых значений. Требуется удвоить значения положительных элементов этого массива и обнулить отрицательные.
Turbo Pascal Выяснить, какое число встречается в массиве раньше – положительное или отрицательное https://www.cyberforum.ru/ turbo-pascal/ thread902801.html Хотелось бы понять как решать задачи вроде: Дан массив из N целых чисел. Выяснить, какое число встречается в массиве раньше – положительное или отрицательное. Дан массив натуральных чисел. Найти сумму элементов, кратных данному К. Дан массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров этих элементов. и т.д. Есть ли какой-то общий алгоритм и с какого конца за них...	Turbo Pascal Разработать алгоритм и составить программу на языке программирования Pascal https://www.cyberforum.ru/ turbo-pascal/ thread902799.html Завтра экзамен, перерыл весь интернет. Помогите, пожалуйста. Хоть одну задачу решить. Заранее спасибо.
Вводится последовательность из N целых чисел Turbo Pascal Вводится последовательность из N целых чисел. Найти наибольшее введенное число, а также наименьшее из введенных отрицательных чисел.	Turbo Pascal Найти количество элементов кратных минимальному элементу двумерного массива Помогите написать программу,ничего не получается...Найти количество элементов кратных минимальному элементу двумерного массива. https://www.cyberforum.ru/ turbo-pascal/ thread902778.html
Turbo Pascal С клавиатуры вводятся натуральное число N и вещественное число x С клавиатуры вводятся натуральное число N и вещественное число x. Вычислить: \sum_{k=1}^{N}\sum_{m=k}^{N}\left({x}^{m-k}- \frac{k}{m}\right) https://www.cyberforum.ru/ turbo-pascal/ thread902774.html	Вводится последовательность из N целых чисел Turbo Pascal 1. Вводится последовательность из N целых чисел. Определить сумму всех отрицательных чисел и сколько введено нулей.Нужен код на паскале
Turbo Pascal Дана матрица целых чисел Дана матрица целых чисел A (nxn). Найти её наибольший по модулю элемент и переставить строки так, чтобы он оказался на главной диагонали. https://www.cyberforum.ru/ turbo-pascal/ thread902762.html	Turbo Pascal Написать программу построения графика функции.(Графика) https://www.cyberforum.ru/ turbo-pascal/ thread902739.html Написать программу построения графика функции y= x2 +2x-cos x на отрезке . Помогите пожалуйста)Заранее спасибо!)
Turbo Pascal Большие элементы массива "сдвинуть" вправо, а меньшие — влево Добрый вечер. Program otminkmax; const N = 20; type mas = array of integer; var A: mas; i: integer; Procedure inp;	Turbo Pascal Записи Известны сведения о каждом из N рабочих (N - заданное число): фамилия, год ро¬ждения и номер бригады. Необходимо для каждой бригады получить два списка: самых молодых и самых старых рабочих. Предусмотреть, что нуме¬рация бригад может быть несплошной. https://www.cyberforum.ru/ turbo-pascal/ thread902732.html

Skelotron

14 / 14 / 16

Регистрация: 02.03.2013

Сообщений: 27

15.06.2013, 20:36

Даны два натуральных числа. Выяснить, в каком из них больше цифр - Turbo Pascal - Ответ 4725681

15.06.2013, 20:36. Показов 2787. Ответов 1

Метки (Все метки)

Сообщение было отмечено Galiya28 как решение

Решение

Pascal

Program p1;
function NumberOfDigits(number:integer):integer;
var i:integer;
begin
  i:=0;
  while number > 9 do begin
    i:= i + 1;
    number:= number div 10;
  end;
  i:= i + 1;
  NumberOfDigits:=i;
end;
 
var
a,b:integer;
begin
  readln(a,b);
  if NumberOfDigits(a) > NumberOfDigits(b) then
    writeln('a > b')
  else
  if NumberOfDigits(a) < NumberOfDigits(b) then
    writeln('a < b')
  else
    writeln('a = b');
end.

Вернуться к обсуждению:
Даны два натуральных числа. Выяснить, в каком из них больше цифр Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.06.2013, 20:36

Готовые ответы и решения:

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

Подпрограммы. Даны два натуральных числа. Выяснить, в каком из них больше цифр
1)Даны два натуральных числа. Выяснить, в каком из них больше цифр, определив функцию для расчета...

Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета количества цифр натура
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета...

Выяснить в каком из них сумма цифр больше, определив функцию для расчёта суммы цифр натурального числа
Помогите плз решить задачу : Даны 2 натуральных числа.Выяснить в каком из них сумма цифр...

	15.06.2013, 20:36

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.06.2013, 20:36

Помогаю со студенческими работами здесь

Выяснить, в каком из заданных натуральных чисел сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше. (Определить функцию для...

Ввести четыре числа, определить и напечатать в каком из них больше цифр
Подпрограмма Ввести четыре числа, определить и напечатать в каком из них больше цифр;

Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше.(сумма цифр - функция). ...

Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом (перевёртышем)
Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть...

Наверх