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

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

Program Anadra;

uses crt;

var a,b,c,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;

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

end. 

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

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

Integer:

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

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

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

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

2)Теперь сама программа. Для начала просим пользователя ввести 3 числа и он вводит их.

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

readln(a);

readln(b);

readln(c);

3)Теперь, с помощью оператора сравнения узнаем какое из чисел a и b больше. Если a, то переменной max присваиваем значение переменной a, в противном случае, значение переменной b.

If a>b then max:=a

Else max:=b;

4)Теперь узнаем, что больше max или c. Если c больше, то присваиваем max новое значение равное c.

If c>max then max:=c;

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

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

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