Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Одинаковые элементы в массиве https://www.cyberforum.ru/ turbo-pascal/ thread2150625.html Дан одномерный массив x1, x2, ... ,x5. Сравнить все элементы массива, если есть одинаковые, подсчитать их количество.	Дать определение составному имени и написать, из каких частей оно состоит Turbo Pascal а)Нужно дать определение составному имени б)написать из каких частей оно состоит, а также как оно записывается а) Как я понимаю составное имя - это название имя типа записи. б) Состоит из частей: имя типа записи, а так же из названий компонентов. Записывается следующим образом: < имя типа записи > = RECORD
Turbo Pascal Ошибка в коде Ошибка в строке 30 : source.pas(30,9) Fatal: Syntax error, ")" expected but "," found Program Hemming; uses crt; const sum1:array of integer = (1, 3, 5, 7, 9, 11, 13); sum2:array of integer = (2, 3, 6, 7, 10, 11, 14); sum3:array of integer = (4, 5, 6, 7, 12); sum4:array of integer = (8, 9, 10, 11, 12); b:array of integer = (1,2,4,8); type errors = record cod, nomer:integer; end; https://www.cyberforum.ru/ turbo-pascal/ thread2150508.html	Turbo Pascal Найти все натуральные К-разрядные числа, цифры которых образуют строго возрастающую последовательность https://www.cyberforum.ru/ turbo-pascal/ thread2150443.html Найти все натуральные К-разрядные числа, цифры к которых образуют строго возрастающую последовательность
Turbo Pascal Удалить из массива элементы с четными номерами Дан целочисленный массив размера N. Удалить из массива все элементы с четными номерами. Ребят, помогите решить задачу на Паскале :)	Turbo Pascal Распознавание полного квадрата Дано натуральное число n. Среди чисел 1,2,3,...,n найти все те ,которые можно представить в виде сумм квадратов двух натуральных чисел. Определить процедуру, позволяющую распознавать полные квадраты. https://www.cyberforum.ru/ turbo-pascal/ thread2150118.html
*Turbo Pascal Вычислить z=z1+z2z3 - векторы комплексных чисел** Помогите исправить программу Задание: вычислить z=z1+z2*z3 - векторы комплексных чисел program lab11; type complex=record re,im:real end; var z:array of complex; i,j:1..3; begin for i:=1 to 3 do https://www.cyberforum.ru/ turbo-pascal/ thread2150044.html	Turbo Pascal Неравенства Помогите плизззз!! Нужно написать программу, решающую неравенство: ax^2+b<=0
Turbo Pascal С клавиатуры вводится натуральное число n. Вычислить сумму ряда - Turbo Pascal https://www.cyberforum.ru/ turbo-pascal/ thread2149701.html Помогите пожалуйста с задачами	Turbo Pascal Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года https://www.cyberforum.ru/ turbo-pascal/ thread2149673.html Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года. Использовать множества и не использовать стандартные фукнции!
Вычислить значение функции Turbo Pascal Необходим программный код для вычисления значения функции Y=\sqrt{ax^2}+\sqrt{lg(2sin^2*x}-arctg\(a-x/4.5)	Turbo Pascal Вычислить значение функции Написать программы на языке Турбо Паскаль для решения предложенных ниже задач. Помогите написать три программы по трем функциям....! задание прилагаю во вложении https://www.cyberforum.ru/ turbo-pascal/ thread2149362.html

Cyborg Drone

Модератор

9867 / 5235 / 3306

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

Сообщений: 16,005

08.12.2017, 16:54

Найти максимальную и минимальную цифры числа. Верно ли, что данное число заканчивается на них? Нужна программа - Turbo Pascal - Ответ 11925771

08.12.2017, 16:54. Показов 1380. Ответов 2

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

Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal

var n, min, max, d, d1, d2: integer;
begin
  write('n = ');
  readln(n);
  n := abs(n);
  d1 := n mod 10;
  d2 := n mod 100 div 10;
  min := 10;
  repeat
    d := n mod 10;
    n := n div 10;
    if min > d then min := d;
    if max < d then max := d
  until n = 0;
  writeln('Min digit = ', min, ', max digit = ', max);
  if (min = max) or (min = d1) and (max = d2) or (min = d2) and (max = d1)
    then writeln('Number comes to end on these digits')
    else writeln('Number does not come to end on these digits');
  readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.12.2017, 16:54

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

Верно ли, что данное число заканчивается на свою максимальную цифру?
Найти максимальную цифру числа. Верно ли, что данное число заканчивается на эту цифру?

Дано натуральное число:верно ли, что данное число заканчивается на нечетную цифру.
Дано натуральное число:верно ли, что данное число заканчивается на нечетную цифру.

Найти максимальную и минимальную цифры числа
Хех это снова я)Вот эта вроде попроще должна быть,но я не был на информатике) Опятьже используя...

Верно ли, что данное натуральное число начинается на А, а заканчивается на В?
Помогите решить:Дано натуральное число,верно ли, что данное число начинается на А, а заканчивается...

	08.12.2017, 16:54

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.12.2017, 16:54

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

Верно ли, что данное число содержит три одинаковые цифры? Оформить процедурой
Дано натуральное n-значное число P. Верно ли, что данное число содержит три одинаковые цифры?

Выяснить, верно ли, что данное четырехзначное число содержит ровно три одинаковых цифры
дано четырехзначное целое число. Выяснить,верно ли,что это число содержит ровно три одинаковых...

Найти сумму и количество цифр числа, а также максимальную и минимальную его цифры
2. Дано многозначное число. Найти сумму и количество цифр этого числа, а также максимальную и...

Определить, верно ли, что данное слово начинается и заканчивается на одну и туже букву
Дано слово.Верно ли что оно начинается и заканчивается на одну и туже букву?

Наверх