Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Randomize Есть такой код, но мне нужно чтоб все 28 чисел он выдавал рандомно, от -20 до 5. Куда вместить, не очень понимаю. Program analiz; Var mass:array of integer; i,ans1,ans2,ans3:integer; m:real; ... https://www.cyberforum.ru/ free-pascal/ thread1332430.html Free Pascal Вставка одномерного массива в двумерный
Ребята,помогите пожалуйста! Вставить в качестве новой строки одномерный массив В в двумерный массив А так, чтобы второй столбец был отсортирован по убыванию.
Free Pascal Двумерный массив Помогите пожалуйста!!! а) Ввести двумерные массивы А,В,С(n x m). Вычислить суммы А+В, В+С, А+С. б) Найти в t получившемся массиве произведение четных элементов. Нужна одна программка с... https://www.cyberforum.ru/ free-pascal/ thread1332308.html Free Pascal Скопируйте отрицательные и положительные элементы массива А в массив В в обратном порядке Скопируйте отрицательные и положительные кратные заданному числу элементы массива А в массив В в обратном порядке. Измените знак всех нечетных (четных) элементов массива, состоящего из L чисел... https://www.cyberforum.ru/ free-pascal/ thread1330996.html
Free Pascal Найти минимальный из положительных и максимальный из отрицательных элементов матрицы
\left
Free Pascal Достать данные с картинки: вес, ширина, высота, количество пикселей https://www.cyberforum.ru/ free-pascal/ thread1330627.html
Вобщем нужен код программы , которая считает данные по заголовку файла из картинки такие, как вес ( в байтах) , ширина , высота , кол-во пикселей , а так же комментарий . Кто может помочь ? ...
Free Pascal Заставка и рекорды https://www.cyberforum.ru/ free-pascal/ thread1330183.html
Итак. Всем привет) Нужна помощь в создании заставки для игры на паскале (включаешь игру, проходит заставка, появляется меню). И желательно подскажите, как сделать таблицу рекордов.......
Конфеты (массив) Free Pascal
Пончик попал в Цветочного города i увидел дорогу, вдоль которой разложены мешки с конфетами. На каждом мешке написано количество конфет. Пончик может взять в каждую руку два мешка, лежащие рядом....
Free Pascal Как изменить длину строки? Перечислите типовые операции над строками https://www.cyberforum.ru/ free-pascal/ thread1330051.html
Добрый день! Помогите, пожалуйста, правильно и грамотно ответить на вопросы: 1)Как изменить длину строки? 2)Перечислите типовые операции над строками. 3)В каких случаях для решения подзадачи...
Free Pascal Сложные условия https://www.cyberforum.ru/ free-pascal/ thread1330041.html
Решите пожалуйста задачу, сложные условия. Даны три вещественных числа a, b, c. Проверить выполняется ли неравенство a < b < c, в Free Pascal
Free Pascal Задача на поиск максимального элемента в массиве, начинающегося с любой цифры
В массиве целого типа найти максимальный элемент из элементов, начинающихся с K-той цифры Помогите советом пожалуйста.
Free Pascal Шифрование данных уникальным методом https://www.cyberforum.ru/ free-pascal/ thread1329419.html
Помогите реализовать такова вида шифр, в нем шифруется все в таком типе Пример: Ebnnnbeenbsis(aaaa)stepboy!!! вывод Benis(a)bestboy!!! По видимому буквы расставляются по порядку скобка разделитель...
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
17.12.2014, 07:50 0

Упорядочить три числа в порядке неубывания - Free Pascal - Ответ 6998459

17.12.2014, 07:50. Показов 6773. Ответов 4
Метки (Все метки)

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

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
var a,b,c:integer;
begin
 readln(a,b,c);
 if a>b then begin a:=a+b;b:=a-b;a:=a-b end;
 if b>c then begin b:=b+c;c:=b-c;b:=b-c end;
 if a>b then begin a:=a+b;b:=a-b;a:=a-b end;
 writeln(a,' ',b,' ',c);
 readln
end.
2)
Pascal
1
2
3
4
5
6
7
8
9
var a:integer;
begin
 repeat
  writeln('a=?, 10<=a<=99');
  readln(a);
 until (a>=10)and(a<=99);
 writeln(a div 10 + (a mod 10)*10);
 readln
end.


Вернуться к обсуждению:
Упорядочить три числа в порядке неубывания Free Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2014, 07:50
Готовые ответы и решения:

Упорядочить все числа n от 1 до m в порядке неубывания значений s(n).
Пусть для целого n&gt;0 функция s(n) равна сумме делителей числа n.Дано m&gt;0.Упорядочить все числа n от...

Упорядочить 3 числа в порядке неубывания
#include &lt;iostream&gt; using namespace std; int main() { int a, b, c; cin &gt;&gt; a &gt;&gt; b &gt;&gt; c;...

Упорядочить все числа n от 1 до m в порядке неубывания значений d(n)
Помогите составить программу: Пусть для целого n&gt;0 функция d(n) равна количеству делителей числа...

Упорядочить все числа n от 1 до m в порядке неубывания значений d(n)
Пусть для целого n&gt;0 функция d(n) равна количеству делителей числа n. Дано m&gt;0. Упорядочить все...

4
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2014, 07:50

Упорядочить все числа n от 1 до m в порядке неубывания количества делителей
Написал программу по условию: Пусть для целого n&gt;0 функция d(n) равна количеству делителей числа...

Упорядочить массив в порядке неубывания
Помогите пожалуйста с заданием(( Дан массив a: array of integer. Упорядочить элементы массива а...

Упорядочить массив в порядке неубывания
при вводе m&gt;0 выдает ошибку 201(((((( uses crt; function d(n:integer):integer; var i:integer;...

Упорядочить строки матрицы в порядке неубывания их первых элементов
Всем привет! Помогите пожалуйста решить задачу, хз как делать :) Дана матpица A. Упорядочить...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru