Задача

Пользователь вводит с клавиатуры три целых числа. Необходимо найти максимальное из них и вывести на экран.


Решение

Для нахождения максимального числа, необходимо каждое число сравнить с парой других, и если данное число одновременно больше обоих, то оно и есть максимальное из трех.
Нахождение максимума из 3-х чисел 01 Uses Crt;
02 Var
03 a,b,c,max:Integer;
04 Begin
05 ClrScr;
06 Write('a=');
07 Readln(a);
08 Write('b=');
09 Readln(b);
10 Write('c=');
11 Readln(c);
12 If (a>b) and (a>c) Then max:=a;
13 If (b>a) and (b>c) Then max:=b;
14 If (c>a) and (b15 Write('max=',max);
16 Readln;
17 End.