Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Упорядочить по невозрастанию те элементы массива, которые не находятся между минимальным и максимальным Дан целочисленный массив x размера n. Упорядочить по невозрастанию те элементы массива, которые не находятся между минимальным и максимальным(если такие имеются). https://www.cyberforum.ru/ pascal/ thread1321994.html	Pascal Определить является ли натуральным число n " счастливым" (из шести цифр) Определить является ли натуральным число n " счастливым" (из шести цифр). для выделения цифр не использовать строковые функции
Pascal Три вида циклов https://www.cyberforum.ru/ pascal/ thread1321955.html Для бригады плиточников из 14 человек рассчитать размер зарплаты, зная количество положенной каждым плитки и цену укладки одной плитки . а также , зная сколько дней они работали, рассчитать их дневную производительность . Все это 3 циклами за ранее спасибо .Ps подскажите какую литературу для начинающих программистом можно почитать	Pascal Одномерные массивы в Pascal Ввести одномерный массив A из N элементов. Каждый элемент в массиве больший 7 домножить на результат целочисленного деления этого элемента на 7. Массив вывести до и после преобразования.,Кому не в трудно, помогите, а то в Школе не проходил pascal а в вузе задали вот такое., заранее спасибо. https://www.cyberforum.ru/ pascal/ thread1321920.html
Pascal Выяснить, является ли один из массивов подмножеством другого Даны два целочисленных массива. Выяснить, является ли один из них подмножеством другого. Если является, то упорядочить это подмножество по убыванию. Помогите еще пожалуйста :-)	Pascal Найти для каждого a среднее арифметическое отрицательных значений функции Дана функция y = f(x, a). Найти для каждого a.среднее арифметическое отрицательных значений функции x1 ≤ x ≤ x2, x3 \| real a1 ≤ a ≤ a2, a3 \| x – while, a – for x3, a3 -шаг функция любая допустим f:=-x*x+a Желательно решить самым простым способом ,заранее благодарю. https://www.cyberforum.ru/ pascal/ thread1321858.html
Pascal Упорядочить строки матрицы по неубыванию их первых элементов https://www.cyberforum.ru/ pascal/ thread1321761.html Сформировать квадратную матрицу порядка n(n=8), в которой упорядочить строки по не убыванию их первых элементов.	Двумерный массив Pascal Сформировать двумерный массив A , содержащей символ «*» в соответствии с вариантом; размерность массива n задается пользователем: Есть вот такой код : program Project4; {$APPTYPE CONSOLE} uses SysUtils, Windows, math;
Pascal Вывести значение N - количество элементов в списке и указатели Р1 и Р2 на первый и последний элементы списка Помогите пожалуйста написать программу. Вот текст задачи: Дан указатель Р0 на один из элементов непустого двусвязного списка. Вывести значение N - количество элементов в списке и указатели Р1 и Р2 на первый и последний элементы списка. Проблема в том что я знаю как задать список, но не получается вывести N, Р1 и Р2 https://www.cyberforum.ru/ pascal/ thread1321508.html	Pascal Сортировка методом "пузырька" https://www.cyberforum.ru/ pascal/ thread1321503.html Помогите пожалуйста решить задачу. Дан одномерный массив чисел. Сформировать два новых массива, состоящих из положительных и отрицательных элементов исходного. При этом массив с положительными элементами должен быть отсортирован по возрастанию, а с отрицательными элементами по убыванию. Сортировку нужно выполнять методом "пузырька"
Pascal С клавиатуры вводится текст. Признак конца ввода - точка. Вывести все согласные, которых нет ни в одном слове С клавиатуры вводится текст. Признак конца ввода — точка. Вывести все со- гласные, которых нет ни в одном слове. Использовать множественный тип.	Pascal Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало года Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало года. https://www.cyberforum.ru/ pascal/ thread1321450.html

CodeR

Фрилансер

3417 / 2814 / 3000

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

Сообщений: 8,549

Записей в блоге: 1

07.12.2014, 10:24

Дано натуральное число, выяснить, каких цифр больше нулей или единиц - Pascal - Ответ 6952187

07.12.2014, 10:24. Показов 2076. Ответов 1

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

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

Решение

Pascal

var
  n, k1, k2: longint;
 
begin
  write('N: ');readln(n);
  n := abs(n);
  while n > 0 do
  begin
    if n mod 10 = 0 then inc(k1);
    if n mod 10 = 1 then inc(k2);
    n := n div 10;
  end;
  writeln('Нулей = ', k1);
  writeln('Единиц = ', k2);
  if k1 > k2 then writeln('Нулей больше')
   else if k1 < k2 then writeln('Единиц больше') 
    else writeln('Поровну');
  readln;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.12.2014, 10:24

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

Дано натуральное число n и символы s1, s2, .sn. Выяснить каких символов больше + или *
Дано натуральное число n и символы s1, s2, ..sn. Выяснить каких символов больше + или *

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

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

Дано натуральное число n, получить последовательность нулей и единиц
Дано натуральное число n, целые числа такие, что каждое a(i) равно нулю или единице и a(n) не...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.12.2014, 10:24

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

Дано четырехзначное натуральное число А. Требуется определить что больше: число А или произведение его цифр?
Дано четырехзначное натуральное число А. Требуется определить что больше: число А или произведение...

Дано натуральное число n, действительное число х, действительная матрица n * 2n. Получить последовательность b1, . bn из нулей и единиц. Где b1 = 1
Дано натуральное число n, действительное число х, действительная матрица n * 2n. Получить...

Дано натуральное число N. Определить, какая из его цифр больше: первая или последняя?
Дано натуральное число N. Определить, какая из его цифр больше: первая или последняя?

Выяснить, каких элементов в массиве больше: положительных, отрицательных или нулей
Выяснить каких элементов больше: положительных, отрицательных или нулей?

Наверх