Срочно,вывести на экран наибольшие из трех чисел
Ответы на вопрос
Ответил Evelyn7
0
Не знаю на каком языке надо так что решу на паскале
Var a,b,c,max:inreger;
Begin
readln(a,b,c);
If (a>b) and (a>c) then max:=a;
If (b>a) and (b>c) then max:=b;
If (c>a) and (c>b) then max:=c;
Writeln(max);
End.
Var a,b,c,max:inreger;
Begin
readln(a,b,c);
If (a>b) and (a>c) then max:=a;
If (b>a) and (b>c) then max:=b;
If (c>a) and (c>b) then max:=c;
Writeln(max);
End.
Новые вопросы