Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a,b,c,d:integer;
{-------------------chuong-trinh-con-----------------------}
function max(x,y:integer):integer;
begin
if x<y then max:=y
else max:=x;
end;
{----------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln(max(a,max(b,max(c,d))));
readln;
end.
Bài 1:
Program hotrotinhoc;
var a,b,c,d,max: integer;
begin
write('Nhap a,b,c,d :'); readln(a,b,c,d);
max:=0;
if a>max then max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
write(max);
readln
end.
Bài 2:
Program hotrotinhoc;
var a,b,c : integer;
begin
write('Nhap 3 canh a,b,c'); readln(a,b,c);
if (a+b>c) or (a+c>b) or (b+c>a) then write('Thoa man') else ('Khong thoa man trong tung truong hop tuong ung');
readln
end.
Bài 4: Câu hỏi của Quỳnh Như - Tin học 8 | Học trực tuyến
Bài 5:
Program hotrotinhoc;
var a,n: integer;
t: longint;
begin
Write('Nhap a,n :'); readln(a,n);
t:=1;
for i:=1 to n do
t:=t*a;
write(t);
readln
end.
Program HOC24;
const fi='T.TXT';
var f: text;
i,n,min,max: integer;
a: array[1..32000] of integer;
tb: longint;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do readln(f,a[i]);
close(f);
end;
begin
ip;
min:=32000; max:=0;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
tb:=tb+a[i];
end;
writeln('Gia tri nho nhat cua day la : ',min);
writeln('Gia tri lon nhat cua day la : ',max);
write('Trung binh cong cua day la : ',tb/n:1:2);
readln
end.
Đáp án đúng : D