Дано А,B, C. Сравнит и найти наибольшую. Составить программу
Answers & Comments
asasin1955
Var a,b,c,max: Integer; begin writeln('Введите a,b,c'); readln(a,b,c); max:=a; if max<b then max:=b; if max<c then max:=c; writeln('Наибольшее число: ',max); end.
Answers & Comments
begin
writeln('Введите a,b,c');
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('Наибольшее число: ',max);
end.