Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
gfyabkjd123
0 / 0 / 1
Регистрация: 15.12.2016
Сообщений: 5
#1

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

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

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

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

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

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

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

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

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,942
05.04.2017, 16:44 #2
Лучший ответ Сообщение было отмечено gfyabkjd123 как решение

Решение

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 / 1
Регистрация: 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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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