Cần gấp 5phút nữa ạ! Viết chương trình tìm và tính tổng max, min của 3 số được nhập từ bàn phím
2 câu trả lời
program max_min;
uses crt;
var S:longint;
a,b,c,max,min:integer;
begin clrscr;
writeln('Nhap vao 3 so: '); readln(a,b,c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln('Max: ',max);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('Min: ',min);
S:=max+min;
writeln('Tong max, min la: ',S);
readln;
end.
Học tốt!
uses crt;
var a,b,c : real;
min, max : real;
begin
write('Nhap 3 so :');
readln(a,b,c);
min:=a;
if min > b then min:=b;
if min > c then min:=c;
max:=a;
if max<b then max:=b;
if max<c then max:=c;
write('Tong min va max la :', min+max);
readln
end.