Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Найти сумму всех чисел последовательности https://www.cyberforum.ru/ pascalabc/ thread816161.html Дана последовательность целых чисел, оканчивающаяся нулем. Найти а)сумму всех чисел последовательности; б)количество всех чисел последовательности.	Pascal ABC Вывод на экран "столбиком" всех целых чисел от 100 до 80 Имеется фрагмент программы в виде оператора цикла с параметром, обеспечивающих вывод на экран "столбиком" всех целых чисел от 100 до 80. Оформить этот фрагмент в виде: а)оператор цикла с предусловием; б) оператор цикла с постусловием.
Pascal ABC Задача на Цикл с условием: Дана последовательность ненулевых целых чисел, https://www.cyberforum.ru/ pascalabc/ thread816133.html Задача на Цикл с условием: Дана последовательность ненулевых целых чисел, оканчивающаяся нулем. Определить, сколько раз в этой последовательности меняется знак. (Например, в последовательности 10, — 4, 12, 56, — 4 знак меняется 3 раза.)	Pascal ABC Верно ли, что цифра a встречается в числе реже, чем цифра b? https://www.cyberforum.ru/ pascalabc/ thread816131.html Дано натурально число. Верно ли, что цифра a встречается в нем реже, чем цифра b?
Pascal ABC Дано натуральное число а) Верно ли, что сумма его цифр мельне a? б) Верно ли, что сумма его цифр больше b? в) Верно ли, что это число k-значное? Составное условие и вложенный условный оператор не использовать. г) Верно ли, что его первая цифра превышает m?	Pascal ABC Дано натурально число. Определить: а) сколько раз в нем встречается цифра a; б) количество его цифр, кратных z (значение z вводится с клавиатуры; z=2,3,4); в) сумму его цифр, больших a (значение a вводится с клавиатуры; 0 меньше либо равно a меньше либо равно 8); г) сколько раз в нем встречаются цифры x и y. https://www.cyberforum.ru/ pascalabc/ thread816122.html
Pascal ABC Дана последовательность из n вещественных чисел, начинающаяся с отрицательного числа. Определить, какое количество отрицательных чисел записано в нача https://www.cyberforum.ru/ pascalabc/ thread816119.html Дана последовательность из n вещественных чисел, начинающаяся с отрицательного числа. Определить, какое количество отрицательных чисел записано в начале последовательности. Условный оператор не использовать.	Pascal ABC Дана не пустая последовательность неотрицательных целых чисел Дана не пустая последовательность неотрицательных целых чисел, оканчивающаяся отрицательным числом. Найти среднее арифметическое всех чисел последовательности (без учета отрицательного числа).
Pascal ABC Найти: а) произведение всех целых чисел от 8 до 15; б)произведение всех целых чисел от a до b (значение a и b вводится с клавиатуры, b больше либо равно a) https://www.cyberforum.ru/ pascalabc/ thread816116.html	Pascal ABC Написать 3 программы по начерченной блок-схеме Нужно написать программу по 3 циклам. For, While и Do. Ребят помогите пожалуйста, очень выручите. Заранее большое спасибо! https://www.cyberforum.ru/ pascalabc/ thread816038.html
Pascal ABC Массив: Из двух упорядоченных по невозрастанию массивов А(n) и В(n) получить путем слияния упорядоченный по убыванию массив С Из двух упорядоченных по невозрастанию массивов А(n) и В(n) получить путем слияния упорядоченный по убыванию массив С; удаляемые элементы собрать в массиве D. Подсчитать количество элементов в массивах Си D.	Pascal ABC Нужна блок-схема для программы https://www.cyberforum.ru/ pascalabc/ thread815903.html program z4; uses crt; type mn=set of 'a'..'z'; var mn1,mn2:mn; b,d:char; s:string; n,m,i,j:integer; begin clrscr;

CodeR

Фрилансер

3418 / 2815 / 3000

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

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

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

23.03.2013, 12:52

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

23.03.2013, 12:52. Показов 8155. Ответов 3

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

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

Решение

Pascal

Var n:integer;
    max,min:integer;
Begin
    write('N = ');readln(n);
    max:=n mod 10;min:=max;
    n:=n div 10;
    While n>0 do
    Begin
      if n mod 10 > max then max:=n mod 10;
      if n mod 10 < min then min:=n mod 10;
      n:=n div 10;
    End;
    writeln((max-min) mod 2 = 0);
    readln;
End.

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

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.03.2013, 12:52

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

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

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

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

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

	23.03.2013, 12:52

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.03.2013, 12:52

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

Определить, является ли разность максимальной и минимальной цифр четным числом
uses crt; var num,min,max,flag: longint; begin clrscr; readln (num); min:=num mod...

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

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

Выяснить, является ли разность максимальной и минимальной цифр числа четной.
Выяснить, является ли разность максимальной и минимальной цифр числа четной.

Наверх