Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 971 ответов!

В переменные А,В,С, ввести числа. Найти минимальное из трех введенных чисел, Помогите пожалуйста,как это сделать?

10-11 класс

DragonSlayer 24 сент. 2015 г., 3:21:54 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Parrabella
24 сент. 2015 г., 4:06:41 (8 лет назад)

var  a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
end.

Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer

Ответить

Другие вопросы из категории

В коробке лежат 64 карандаша: красные, синие,

зеленые. Сообщение о том, что достали два карандаша – красный и синий, несет 9
бит информации. Сообщение о том, что достали красный карандаш, несет 5 бит
информации. Сколько было зеленых карандашей?

Читайте также

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

2. Найти больше из трех данных чисел.
3. В одномерном массиве положительные элементы меншиты на 7.

Сделайте архивный файл (rar) через консоль Windows (cmd). В файл поместите doc-документ, содержащий ваши Ф.И.О, номер группы и текст команды, которую вы

используете.


Объясните пожалуйста как это сделать , какую именно нужно команду ввести .... в Инете искал не нашёл )) помогите поже...



Вы находитесь на странице вопроса "В переменные А,В,С, ввести числа. Найти минимальное из трех введенных чисел, Помогите пожалуйста,как это сделать?", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.