составьте алгоритм с помощью которого можно определить большее из трех чисел a b c
Answers & Comments
Ленгит
Var a,b,c,max:real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); max:=a; if (b>a) and (b>c) then max:=b; if (c>b) and (c>a) then max:=c; write('Максимальное число: ',max:5:2); readln;end.
Answers & Comments
a,b,c,max:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
write('Максимальное число: ',max:5:2);
readln;end.