TQ
1
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
6 tháng 12 2016
Tìm số lớn nhất
= MAX ( a,b,c)
Tìm số nhỏ nhất
= MIN ( a,b,c)
TH
1
24 tháng 6 2020
dem:=0;
for i:=1 to n do
if i mod 2<>0 then inc(dem);
VL
1
7 tháng 5 2021
uses crt;
var a,b,c,d,i,min:integer;
x:array[1..4]of integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
x[1]:=a;
x[2]:=b;
x[3]:=c;
x[4]:=d;
min:=x[1];
for i:=1 to 4 do
if min>x[i] then min:=x[i];
writeln(min);
readln;
end.
18 tháng 11 2019
cách 1: điều kiện dạng thiếu(chỉ có if, không có else)
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then writeln('so nho nhat trong hai so la: ',a);
if b<a then writeln('so nho nhat trong hai so la: ',b);
if b=a then writeln('khong co so nho nhat trong hai so');
readln;
end,
cách 2: điều kiện dạng đủ
uses crt;
var a,b,c,kq:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then writeln('so nho nhat trong hai so la: ',a)
else if b<a then writeln('so nho nhat trong hai so la: ',b)
else writeln('khong co so nho nhat trong hai so');
readln;
end.
16 tháng 5 2020
uses crt;
var a,b,c,max:real;
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;
writeln('So lon nhat la: ',max:4:2);
readln;
end.
ML
1 tháng 3 2021
Program HOC24;
var i,n,t: integer;
begin
n:=1; t:=0;
while t<=500 do
begin
t:=t+n;
n:=n+1;
end;
writeln('Tong la: ',t);
write('So N nho nhat de tong lon hon 500 la: ',n);
readln
end.
1 tháng 3 2021
*Cách khác: Dùng Repeat Until
uses crt;
var n,t:integer;
begin
clrscr;
t:=0;
n:=0;
repeat
n:=n+1;
t:=t+n;
until t>500;
writeln(t);
writeln(n);
readln;
end.
If a < b then D:=a;
If b < c then D:=b;
If c < a then D:=c;