Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Обращение к элементам записи файла https://www.cyberforum.ru/ turbo-pascal/ thread253201.html есть процедура, незнаю как обращаться поэлементно к значениям массива записей находящемся в файле {--------------} procedure prosmotr; var ai,s,kl:integer; km,ksr,o:real; begin assign(MAS,'bagash.doc'); reset(MAS); clrscr;	Вычислить значение выражения 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. Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. 3. Составьте программу, которая определяет, является ли введенный символ гласной или согласной буквой латинского алфавита....	Turbo Pascal Системы счисления Напишите программу, которая будет переводить число из любой системы счисления, в любую другую систему счисления (от двоичной до шестнадцатеричной). https://www.cyberforum.ru/ turbo-pascal/ thread253168.html
Turbo Pascal Вычислить наибольший по площади прямоугольник, состоящий из единиц Задан двумерный массив, состоящий из нулей и единиц. Необходимо высчитать наибольший по площади прямоугольник, состоящий из единиц и подсветить (выделить) его. 0100101 0101110 0011110 Площадь наибольшего прямоугольника в данном примере 2х3=6(две строки по 3 единицы). https://www.cyberforum.ru/ turbo-pascal/ thread253166.html	2 коробки Turbo Pascal Пользователь задает размер двух коробок AxBxC и DxExF, необходимо произвести вычисления, и сделать один из выводов. 1. Первая коробка входит во вторую. 2. Вторая коробка входит в первую. 3. Коробки одинаковы. 4. Размеры коробок не совместимы.
Turbo Pascal количество совпадений по две одинаковые цифры Даны два четырехзначных числа, необходимо найти количество совпадений по две одинаковые цифры в равносильных разрядах чисел, а так же количество совпадений по две одинаковые цифры в различных разрядах этих чисел. Цифра, которая уже участвовала в одной паре совпадения, не учитывается повторно. Например: Дано: 1234 2735 Количество совпадений одинаковых цифр в равносильном разряде равно 1,... 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. Сформировать новый,заменив в исходном массиве элементы с четными индексами нулями. Сравнить среди арифмет. нового массива со средним арифметическом исходного массива 3) Сформировать из заданной квадратной матрицы размером N*N такую,...	Turbo Pascal Оставить в файле только фразы, в которых нет запятых https://www.cyberforum.ru/ turbo-pascal/ thread253135.html Задание! Дан текстовый файл, фразы в котором отделены друг от друга точками, а слова – пробелами и знаками препинания. Оставить в этом файле только фразы, в которых нет запятых ********************************************************************************** Код program xxx; var f1,f2:text; x:char; st:string; begin

Puporev

Почетный модератор

64299 / 47594 / 32743

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

Сообщений: 115,181

07.03.2011, 09:12

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

07.03.2011, 09:12. Показов 5552. Ответов 1

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

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

Решение

Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.03.2011, 09:12

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

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

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

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

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

	07.03.2011, 09:12

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.03.2011, 09:12

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

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

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

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

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

Наверх