Найти среди чисел a, b, c наименьшее и заменить им число, большее из них - Free Pascal

  1. 1. Найти среди чисел a, b, c наименьшее и заменить им число, большее из них.


textual

Код к задаче: «Найти среди чисел a, b, c наименьшее и заменить им число, большее из них - Free Pascal»

var a,b,c,mn: real;
begin
readln(a,b,c);
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
if(a>b)and(a>c) then a:=mn
else if(b>c)and(b>a)then b:=mn
else if(c>a)and(c>b)then c:=mn;
writeln('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);
end.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.400 из 5



Похожие ответы
  1. Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива А: bi = (a1 + a2 + ... + ai ) / i

  1. При вводе вектора выдаёт exitcode 201. Задание было такое: В задаваемом вещественном векторе A размерности n>5. Найти значение и индекс последнего минимального элемента

  1. Снова к вам! Задача: Вывод двенадцати месяцев на одном экране, начиная с заданного месяца. Получилось вот что:

  1. Дана строка из строчных латинских букв. Напечатать первые вхождения букв в текст, сохраняя их взаимный порядок. Указание: формируйте множество, в которое очередной элемент добавляется после первой печати. Примечание: Программы должны быть написаны в рамках структурного программирования. В частности, запрещается использовать операторы перехода и метки.

  1. Улитка ползёт по вертикальному шесту высотой h метров, поднимаясь за день на a метров, а за ночь спускаясь на b метров. На какой день улитка доползёт до вершины шеста? Программа получает на вход натуральные числа h, a, b и должна вывести одно натуральное число. Гарантируется, что a>b. При решении этой задачи нельзя пользоваться условной инструкцией if и циклами. ---------------------------- Как решить эту задачу без конструкции if? С ней легко, а без нее как? Не говорите мне, что это легкая задача. Дайте мне работающий код. В гугл не посылать, решения либо абсурдно легкие(h div (a-b), что, очевидно, неверно), либо слишком сложные, но в тоже время не выдающие правильные ответы.

  1. Заполнить массив на 200 элементов псевдослучайными числами от 20 до 80: 1)Найти среднее арифметическое всех элементов. 2)Найти среднее арифметическое всех элементов меньше пятидесяти 3)Заменить наименьшие значения в массиве нулями Вывести полученный массив.

  1. Всем привет, столкнулся с проблемой, что не могу написать программу. Нужна ваша помощь. Желательно написать без функций типа trunc т.к. такого не изучали. Вот условие: 8. Программа с помощью процедуры задает последовательность чисел 1,2,3...n(n<=100). Среди них находит автоморфные числа(число и последние цифры его квадрата равны) Например: 5 и 25, 25 и 625. Спасибо заранее)

  1. Здравствуйте, я столкнулся с проблемой. Я решил сделать ascii-скроллер в консоли при помощи модуля crt. Но вот проблема - практически все мерцает. Что с этим можно сделать? Пытался увеличивать задержку, но это не помогает.

  1. День добрый, есть задачка по Паскалю, которую сдавать через час, а у меня еще долги Если не сложно, то прошу помочь, буду вам премного благодарен Дана матрица B[1:6,1:6] и вектор А[1:6]. Из среднеарифметических значений строк матрицы сформировать вектор C. Если минимальный элемент вектора C меньше минимального элемента вектора A, то из элементов главной диагонали матрицы сформировать вектор D. Иначе в матрице B элементы главной диагонали матрицы заменить элементами вектора A по правилу Bi,i= Ai.