Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Написать программу, которая вычисляет значение выражения u = max(x,y,z)^2 - min(x,y,z)^2 / (max(x,y,z) + min(x,y,z))^2 Написать программу которая проверяет по заданным трем значениям x,y,z и вычисляет следующее выражение u={max}^{2}(x,y,z)-{min}^{2}(x,y,z)/{(max(x,y,z)+min(x,y,z))}^{2} https://www.cyberforum.ru/ turbo-pascal/ thread2520316.html Turbo Pascal Ввести таблицу А(4,6) и натуральные числа К, Р (1<=К<Р<=6). Поменять в таблице К-й и Р-й столбцы
Ввести таблицу А(4,6) и натуральные числа К, Р (1<=К<Р<=6). Поменять в таблице К-й и Р-й столбцы
Turbo Pascal Дана таблица У(5,5). Сформировать таблицу X при условии Дана таблица У(5,5). Сформировать таблицу X при условии: X(I,J)= 1/(Y(I,J)+ ABS(Y(I,J))), где I - четное; X(I,J)=SQRT(EXP(Y(I,J)), где I - нечетное. https://www.cyberforum.ru/ turbo-pascal/ thread2520090.html Turbo Pascal сформировать динамический строку вывести его на печать и проверить начинается и заканчивается буквой "Y" https://www.cyberforum.ru/ turbo-pascal/ thread2519945.html
сформировать динамический строку вывести его на печать и проверить начинается и заканчивается буквой "Y"
Turbo Pascal Вычислить сумму ряда
Дано натуральное n. Получить: \left(\frac{1}{1} \right)^n+\left(\frac{1}{2} \right)^{n-1}+...+\left(\frac{1}{n} \right)^1
Turbo Pascal Вычисление формулы https://www.cyberforum.ru/ turbo-pascal/ thread2519595.html
Помогите вычислить формулу. S=\sum_{k=1}^{10}\frac{\sum_{n=1}^{k}\sin kn}{k!}
Turbo Pascal Скалярное произведение Вычислить скалярное произведение s. s=(Aq+p,Aq) Исходные данные. А= B = https://www.cyberforum.ru/ turbo-pascal/ thread2519410.html Turbo Pascal Вывести на печать номера элементов массива, которые меньше последнего, и их число
Дан массив С(m), m=<15. Вывести на печать номера тех элементов массива, которые меньше последнего, и их число, а также вывести на печать элементы массива С.
Turbo Pascal Найти произведение всех целых чисел от А до В включительно Даны два целых числа А и В (А<В). Найти произведение всех целых чисел от А до В включительно. Составить блок-схему. https://www.cyberforum.ru/ turbo-pascal/ thread2519394.html Turbo Pascal Переместиться вправо https://www.cyberforum.ru/ turbo-pascal/ thread2519343.html
Задача: Вы разрабатываете фрагмент редактора текста. Ваш фрагмент поддерживает возможность перемещения курсора вправо. - Нажатие на клавишу «вправо» перемещает курсор на один символ вправо. Если курсор находится на самой правой позиции строки, то он переходит на первый символ следующей строки (если она есть. Курсор остается неподвижным, если он находится в правой-нижней позиции). Вам...
Квадрат в прямоугольнике Turbo Pascal
Задача: У Вас в руках карта местности, представленная решеткой N*M символов. Выведите прямоугольник - фрагмент этой карты, с левым верхним углом в позиции R,C (R - номер строки, C - номер столбца) с стороной L. Формат ввода: N M – количество строк(N) и столбцов(M) (N<=16, M<=20) s - первая строка карты s - вторая строка карты ... s - последняя строка карты
Turbo Pascal Составить блок схему алгоритма и программу для вычисления функции https://www.cyberforum.ru/ turbo-pascal/ thread2519039.html
Помогите cоставить блок схему алгоритма и программу для вычисления функции по формуле для произвольных исходных данных, с двойной точностью. просьба разжевать. нуб в этом деле
3050 / 1668 / 657
Регистрация: 19.03.2019
Сообщений: 5,368
28.10.2019, 14:56 0

Определить номер минимальной цифры числа - Turbo Pascal - Ответ 13942338

28.10.2019, 14:56. Показов 1784. Ответов 5
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
repeat 
  ReadLn(N);
until N>0;
sum=0;
min=10; {минимальная цифра не может быть больше 9}
while N>0 do begin
   if ( N mod 10 ) < min then min := N mod 10;
   sum := sum + (N mod 10);
   N := N div 10
end;
WriteLn('summa = ', sum);
WriteLn('min = ', min);


Вернуться к обсуждению:
Определить номер минимальной цифры числа Turbo Pascal
1
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2019, 14:56
Готовые ответы и решения:

Определите номер минимальной цифры в числе
дано натурально число n.определите номер минимальной цифры,считая от начала числа,все цифры...

Определить порядковый номер максимальной цифры, считая от конца и от начала числа
Привет! Люди прошу у Вас помощи, нужно сдавать работы 6 июня а у меня ни одной нет. Паскаль не...

Найти факториал минимальной цифры введеного пользователем числа
пользователь вводит натуральное число. найти факториал минимальной цифры введеного пользователем...

Определить вагон с минимальной массой, его порядковый номер
Дан массив масс вагонов до 80 т А 1) определить вагон с минимальной массой , его порядковый номер...

5
28.10.2019, 14:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2019, 14:56
Помогаю со студенческими работами здесь

Определить номер первой по порядку цифры натурального числа N
Определить номер первой по порядку цифры натурального числа N, представленного в семеричной системе...

Определить порядковый номер минимальной цифры десятичного числа
Дано натуральное число, в котором все цифры различны. Определить порядковый номер его минимальной...

Определить порядковый номер минимальной цифры считая от конца числа
вот моя программа вроде бы все правильно , но выдает 0%, где ошибка? #include&lt;stdio.h&gt; main() {...

Определить номер минимальной цифры числа при счете справа налево
Ввести с клавиатуры натуральное число и определить номер минимальной цифры числа при счете справа...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru