Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
gfyabkjd123
0 / 0 / 0
Регистрация: 15.12.2016
Сообщений: 5
#1

Сумма двух цифр введенного числа: самой большой цифры и самой маленькой - Free Pascal

04.04.2017, 20:33. Просмотров 161. Ответов 2
Метки нет (Все метки)

Написать процедуру minmax (free pascal) которая получает в качестве параметра целое положительное число (не более чем 32768) и выводит на экран сумму двух цифр этого числа: самой большой цифры и самой маленькой.
Пример minmax(1789)
Результат 10.
Буду благодарен
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2017, 20:33
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Сумма двух цифр введенного числа: самой большой цифры и самой маленькой (Free Pascal):

Разработать алгоритм программы, нахождения самой маленькой цифры целого числа - Free Pascal
Разработать алгоритм программы, нахождения самой маленькой цифры целого числа.

Составить программу вывода самой большой цифры в записи заданного числа - Pascal
Составить программы в Pascale 1 задача. Найти сумму всех чисел в строке. 2 задача. Составить программу вывода самой большой цифры в...

Задачка на вывод порядкового номера самой большой цифры в записи числа! - Pascal
Чет не могу понять! Задача состоит в том, что сначала комп получает на вход натур. число, находит самую большую цифру в записи этого числа,...

Посчитать сумму самой крайней правой стороны и самой нижний в заданной матрице - Pascal
Дан двухмерный массив посчитать сумму самой крайней правой стороны и самой нижний если сумма элементов двух сторон четное число поменять...

Чебурашка бежит вприпрыжку по лестнице вниз, начиная с самой верхней ступеньки до самой нижней - Pascal
Чебурашка бежит вприпрыжку по лестнице вниз, начиная с самой верхней ступеньки до самой нижней. он иногда перепрыгивает через ступеньку,...

найти на экран все четырехзнаные числа у которого сумма первой и последней цифры равна сумме двух средних цифр - Pascal
напишите программ на паскаль

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3376 / 2363 / 1622
Регистрация: 05.06.2014
Сообщений: 11,202
05.04.2017, 16:44 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  n, max: LongInt;
 
procedure minmax(n: LongInt);
var
  min, max: LongInt;
begin
  max := 0;
  min := MaxInt;
  repeat
    if (n mod 10) > max then 
      max := (n mod 10);
    if (n mod 10) < min then 
      min := (n mod 10);      
    n := n div 10;
  until n = 0;
  WriteLn('Сумма: ', max + min);
end;
 
begin
  minmax(1989);
end.
1
gfyabkjd123
0 / 0 / 0
Регистрация: 15.12.2016
Сообщений: 5
06.04.2017, 11:28  [ТС] #3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2017, 11:28
Привет! Вот еще темы с ответами:

Найти три треугольника самой большой площади - Free Pascal
Дано n точек необходимо найти три треугольника самой большой площади и вывести их координаты

Сумма двух крайних цифр заданного четырехзначного числа равна сумме двух его средних цифр - Free Pascal
С помощью логической переменной разработать программу.Сумма двух крайних цифр заданного четырехзначного числа равна сумме двух его средних...

Вывести все четырехзначные числа у которых сумма первых двух цифр равна сумме вторых двух цифр. - Free Pascal
5.Вывести все четырехзначные числа у которых сумма первых двух цифр равна сумме вторых двух цифр.

Верно ли, что сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр - Pascal
Помогите решить задачки: 1) Проверить истинность высказывания: &quot;Сумма двух первых цифр данного четырехзначного числа равна сумме двух...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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