Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/15: Рейтинг темы: голосов - 15, средняя оценка - 5.00
1znar
0 / 0 / 0
Регистрация: 24.09.2010
Сообщений: 28
1

Порядок возрастания чисел

07.07.2011, 10:35. Просмотров 2738. Ответов 1
Метки нет (Все метки)

Даны три числа a, b и с. Если все они ненулевые, вывести их на экран в порядке возрастания; иначе выдать соответствующее сообщение, какое из чисел не удовлетворяет условию.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.07.2011, 10:35
Ответы с готовыми решениями:

Порядок возрастания
Написать программу, которая выводит в порядке возрастания три заданных числа.

порядок возрастания
даны четыре числа. расположить в порядке возрастания

Даны 5 чисел a,b,c,d,e. Расставить их в порядке возрастания используя не более семи сравнений, без массива и перестановки именно чисел.
Помогите решить в Pascal'е, pls. тема: циклический алгоритм. Добавлено через 34 минуты .....

Дана последовательность чисел. Требуется вычеркнуть из нее минимальное количество чисел так, чтобы оставшиеся шли в порядке возрастания.
Даны N целых чисел X1, X2, ..., XN. Требуется вычеркнуть из них минимальное количество чисел так,...

Дан файл целых чисел. Преобразовать его, удалив нечетные числа. Порядок следования четных чисел сохранить. И блок схемы к ним.
Мне задали задание, но у меня после сессии голова не работает Если кому не трудно решите , очень...

1
skifua
10 / 10 / 1
Регистрация: 26.09.2011
Сообщений: 138
04.10.2011, 18:50 2
Лучший ответ Сообщение было отмечено 1znar как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program PORYADOK;
var a, b, c, k: real;
BEGIN
 write('Введите первое число: ');
 readln(a);
 write('Введите второе число: ');
 readln(b);
 write('Введите третье число: ');
 readln(c);
 if b < a then
   begin
     k:= a;
     a:= b;
     b:= k
   end;
 if c < a then
   begin
     k:= a;
     a:= c;
     c:= k
   end;
 if c < b then
   begin
     k:= b;
     b:= c;
     c:= k
   end;
write(a:5:2, ', ', b:5:2, ', ', c:5:2);
readln
END.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2011, 18:50

10 чисел расположить в порядке возрастания
Нужно составить задачу, чтобы в итоге 10 чисел располагались в порядке возрастания!

Вывод чисел в порядке возрастания
сказали написать программу в паскале, суть её такова. при введение 3х чисел к примеру 2 3 1 он...

Обратный порядок чисел
помогите изменить код для чтения и записи данных в файл in out procedure chisla(n:integer); var...


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

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

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