Составьте прогрмму,в которойв водится рост 3-их друзей и выводится самвй высокий. Помогите, пожалуйста)
Answers & Comments
lonner44
Program rrr; Var a,b,c,k: integer; begin readln (a,b,c); if (a>b) and (a>c) then k:=a; if (b>a) and (b>c) then k:=b; if (c>a) and (c>b) then k:=c; writeln (k); end.
я делала так, но хз что делать если числа будут равны
Answers & Comments
Var a,b,c,k: integer;
begin
readln (a,b,c);
if (a>b) and (a>c) then k:=a;
if (b>a) and (b>c) then k:=b;
if (c>a) and (c>b) then k:=c;
writeln (k);
end.
я делала так, но хз что делать если числа будут равны