Войти Регистрация Спроси ai-bota

Паскаль. даны три действительных числа a,b,c. присвоить программной переменной ymin значение min {a,b,c}.

Ответ:

Max749

19.07.2020 17:57

Program min;
var
a,b,c,Ymin:integer;
begin
writeln('Введите три числа : ');
readln(a,b,c);
if a>b then
Ymin:=b else Ymin:=a;
If b>c then
Ymin:=c else Ymin:=b;
If a>c then
Ymin:=c else Ymin:=a;
writeln('Наименьшее значение = ',Ymin);
readln;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

casualsicp

29.06.2022 21:05

1. установите соответствие между назначениями аппаратных средств и их названиями: а) устройства ввода данных б) устройства внутренней памяти в) устройства вывода данных...

наташа6710

23.01.2022 09:59

1. укажите пример информационного процесса хранения данных. a) устный ответ ученика б) фотографирование b) показ пантомимы г) телефонный разговор 2. укажите программы, предназначенные...

Tanecka2501

23.01.2022 09:59

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

merit6052

31.05.2021 03:48

Дополните по аналогии: человек-записная книжка; компьютер: а) процессор б) долговременная память в) клавиатура г) монитор...

aseeva2883

09.04.2022 18:25

Класс украсили вот так: д и=н и н=ч д т=ч внимательно посмотри на эти украшения и скажи какая сумма будет равнятся т? надо к завтрешнему днюварианты ответад ди ин нч ч...

nastyusha19032002

09.04.2022 18:25

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

kuanyshbek2003

11.03.2021 07:29

Склавиатуры вводятся числа , пока не будет введено отрицательное число. подсчитать количество чисел. (решение ниже) var a,b: integer; begin while b =0 do begin readln(b);...

Vasilisa00700

11.03.2021 07:29

Запас рыбы в пруду х тон. ежегодно прирост рыбы составляет 30%, а вылов рыбы у тон. через сколько запас рыбы станет z тон или меньше. решить в паскале. p.s.: неизвестные...

anyakoi

11.03.2021 07:29

Какое максимальное количество ребер у неориентированного графа с n вершин и k компонент связности. напомню, что для полного неориентированного графа это n * (n - 1) / 2...

svetasan76

18.06.2022 18:49

Дан массив в(n*m) ).элементы массива ввести случайным образом.найти сумму элементов в каждой строке, больших среднего арифметического элементов данной строки паскаль...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку