Из трех данных чисел выбрать наименьшее и наибольшее.

Program Anadra;

uses crt;

var a,b,c,min,max :integer;

begin

writeln(‘Введите 3 числа’);

readln(a);

readln(b);

readln(c);

If a>b then max:=a

Else max:=b;

If c>max then max:=c;

If a<b then min:=a

Else min:=b;

If c<min then min:=c;

writeln(‘Самое большое число ‘,max);

writeln(‘Самое маленькое число ‘,min);

end. 

Разбор решения:  

1)Итак, для начала нам надо заполнить раздел описания переменных.

Integer:

a – первое число

b – второе число

с – третье число

max - максимальное число

min - минимальное число 

2)Теперь  ищем максимальное число по принципу, рассказанному здесь.  

If a>b then max:=a

Else max:=b;

If c>max then max:=c;

3)Теперь ищем минимальное число по принципу, рассказанному здесь.

If a<b then min:=a

Else min:=b;

If c<min then min:=c;

4)Выводим результаты на экран.

writeln(‘Самое большое число ‘,max);

writeln(‘Самое маленькое число ‘,min);

5)Программа готова. Жду ваших комментариев.

Добавить комментарий