Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Обращение к элементам записи файла https://www.cyberforum.ru/ turbo-pascal/ thread253201.html
есть процедура, незнаю как обращаться поэлементно к значениям массива записей находящемся в файле {--------------} procedure prosmotr; var ai,s,kl:integer; km,ksr,o:real; begin ...
Вычислить значение выражения Turbo Pascal
y=((-1)^n)*(x^(2n+1))/(2n+1) нужна только формула вида y:= буду очень благодарна
Turbo Pascal Найти страны, в которые экспортируется данный товар и общий объем экспорта Создать файл, содержащий требуемую информацию. Написать программу, которая позволит просмотреть содержимое файла и получить требуемый ответ (ответ по желанию пользователя выводится на экран или в... https://www.cyberforum.ru/ turbo-pascal/ thread253178.html Turbo Pascal Моделирование работы с базой данных в Pascal. https://www.cyberforum.ru/ turbo-pascal/ thread253177.html
Записи о пяти учебниках в библиотеке(предмет,автор,класс,количество). Определить число учебников математики для 5-го класса.
Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа Turbo Pascal
Пожалуйста, помогите мне решать задачи;( 1. Напишите программу, котарая вводит координаты трех точек - середин сторон треугольника и выводит координаты вершин треугольника. 2. Определить число,...
Turbo Pascal Системы счисления Напишите программу, которая будет переводить число из любой системы счисления, в любую другую систему счисления (от двоичной до шестнадцатеричной). https://www.cyberforum.ru/ turbo-pascal/ thread253168.html
Turbo Pascal Вычислить наибольший по площади прямоугольник, состоящий из единиц Задан двумерный массив, состоящий из нулей и единиц. Необходимо высчитать наибольший по площади прямоугольник, состоящий из единиц и подсветить (выделить) его. 0100101 0101110 0011110 Площадь... https://www.cyberforum.ru/ turbo-pascal/ thread253166.html 2 коробки Turbo Pascal
Пользователь задает размер двух коробок AxBxC и DxExF, необходимо произвести вычисления, и сделать один из выводов. 1. Первая коробка входит во вторую. 2. Вторая коробка входит в первую. 3....
Turbo Pascal количество совпадений по две одинаковые цифры Даны два четырехзначных числа, необходимо найти количество совпадений по две одинаковые цифры в равносильных разрядах чисел, а так же количество совпадений по две одинаковые цифры в различных... https://www.cyberforum.ru/ turbo-pascal/ thread253164.html Turbo Pascal Рекурсивно вычислить факториал https://www.cyberforum.ru/ turbo-pascal/ thread253151.html
Составьте программу вычисления числа сочетаний по формуле: C(n,m)= n!/m! Вычисление факториалов числа оформить как рекурсивную функцию.
Сформировать новый,заменив в исходном массиве элементы с четными индексами нулями Turbo Pascal
1) Составить программу, которая при регистрации пассажиров подсчитывает количество взрослых и детей. Количество пассажиров N. 2)Задан одномерный массив Х длины N. Сформировать новый,заменив в...
Turbo Pascal Оставить в файле только фразы, в которых нет запятых https://www.cyberforum.ru/ turbo-pascal/ thread253135.html
Задание! Дан текстовый файл, фразы в котором отделены друг от друга точками, а слова – пробелами и знаками препинания. Оставить в этом файле только фразы, в которых нет запятых...
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
07.03.2011, 09:12 0

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

07.03.2011, 09:12. Показов 4330. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var m:longint;
    k,mx,mn:byte;
    f:boolean;
begin
clrscr;
write('Введите целое число m=');
readln(m);
m:=abs(m);
mx:=0;
mn:=9;
while m>0 do
 begin
  k:=m mod 10;
  if k>mx then mx:=k;
  if k<mn then mn:=k;
  m:=m div 10;
 end;
writeln('Наибольшая цифра=',mx,'  наименьшая=',mn);
f:=(mx-mn) mod 2=0;
writeln('Является ли их разность четной');
write(f);
readln
end.


Вернуться к обсуждению:
Выяснить, является ли разность максимальной и минимальной цифр числа четной. Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.03.2011, 09:12
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2011, 09:12

С клавиатуры вводятся 2 числа, выяснить является ли их разность положительным числом
С клавиатуры вводятся 2 числа, выяснить является ли их разность положительным числом

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

Выяснить ,является ли последовательность цифр числа при просмотре справа налево возрастающей
Дано натуральное число N,не превосходящее 1000000.Требуется выяснить ,является ли...

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

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