Задача 1: Вводится три числа нужно найти максимальное (max) и минимальное (min) число.
Задача 2: Вводится три числа нужно найти максимальное (max).
Задача 3: Вводится три числа нужно найти минимальное (min).
Задача 1: Вводится три числа нужно найти максимальное (max) и минимальное (min) число.
program Maximin; var a,b,c,d,e:real; begin read (a,b,c); d:=a; if d<b then d:=b; if d<c then d:=c; e:=a; if e>b then e:=b; if e>c then e:=c; writeln ('Максимальное число:',d); write ('Минимальное число:',e); end.
Задача 2: Вводится три числа нужно найти максимальное (max).
program Max; var a,b,c,d:real; begin read (a,b,c); d:=a; if d<b then d:=b; if d<c then d:=c; writeln ('Максимальное число:',d); end.
Задача 3: Вводится три числа нужно найти минимальное (min).
program Min; var a,b,c,e:real; begin read (a,b,c); e:=a; if e>b then e:=b; if e>c then e:=c; write ('Минимальное число:',e); end.