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,max:integer;
begin
clrscr;
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
write('Nhap c:'); readln(c);
max:=-32000;
if max<a then max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln(max);
readln;
end.
uses crt;
var a,b,c,max:integer;
begin
clrscr;
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln(max);
readln;
end.
Tìm số lớn nhất
= MAX ( a,b,c)
Tìm số nhỏ nhất
= MIN ( a,b,c)
3.1
Input: 100 số tự nhiên đầu tiên
Output: Tổng của chúng
3.2:
Input: hai số x,y
Output: Giá trị của hai số sau khi hoán đổi
Bước 1: Nhập a,b,c
Bước 2: ln←a;
Bước 3: Nếu ln<b thì ln←b;
Bước 4: Nếu ln<c thì ln←c;
Bước 5: Xuất ln
Bước 6: Kết thúc
cre : Nguyễn Lê Phước Thịnh
B1. Nhập ba số a,b,c;
B2. Max <-- a;
B3. Nếu Max < b thì Max <-- b;
B4. Nếu Max < c thì Max <-- c;
B5. Xuất Max và kết thúc
Bước 1: Nhập a,b,c
Bước 2: ln←a;
Bước 3: Nếu ln<b thì ln←b;
Bước 4: Nếu ln<c thì ln←c;
Bước 5: Xuất ln
Bước 6: Kết thúc
uses crt;
var a,b,c,max,t:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
t:=a+b+c;
writeln('Tong cua 3 so la: ',t);
writeln('So lon nhat trong 3 so la: ',max);
readln;
end.
program giatrilonnhat;
vả a,b,c,max:integer;
begin
writeln(nhap a,b,c=');
readln(a,b,c);
max:=a;
ì max<b then max:=b;
if max<c then max:=c;
writeln('gia tri lon nhat la', max);
readln
end.
dòng thứ hai cho mình sửa chữ var
dòng thứ ba thiếu dấu '
dòng 6 sửa chữ if