Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.
Viết chương trình tổng các số chẵn từ 1 đến N.
Viết chương trình tính N giai thừa.
Viết chương kiểm tra xem N có phải số nguyên tố hay không.
Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N.
Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím.
Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0.
Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...}
Viết chương trình in ra màn hình bảng cửu chương N.
Viết chương trình in ra N hàng của tam giác Pascal.
Viết chương trình in ra tất cả các ký tự có mã ASCII từ M đến N.
Cho 4 chữ số 1, 2, 3 và 4. Có bao nhiêu số có 3 chữ số tạo thành từ 4 chữ số 1, 2, 3, 4 và đó là những số nào, viết chương trình thực hiện yêu cầu trên.
Gửi tiết kiệm ngân hàng số tiền X đồng với lãi suất N %/tháng. Để nhận được số tiền ít nhất là B đồng thì phải gửi tối thiểu bao nhiêu tháng. Viết chương trình giải quyết bài toán trên trong trường hợp không tính lãi kép.
3 trả lời
Phân biệt mạng không dây và mạng có dây (Tin học - Lớp 10)
3 trả lời
viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất. Giup mình với ạ
Viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất.
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('vui long nhap hai so khac nhau')
else if a>b then writeln('so lon nhat la: ',a)
else writeln('so lon nhat la: ',b);
readln;
end.
...Xem tất cả bình luận
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('vui long nhap hai so khac nhau')
else if a>b then writeln('so lon nhat la: ',a)
else writeln('so lon nhat la: ',b);
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('vui long nhap hai so khac nhau')
else if a>b then writeln('so lon nhat la: ',a)
else writeln('so lon nhat la: ',b);
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('vui ***g nhap hai so khac nhau')
else if a>b then writeln('so *** nhat la: ',a)
else writeln('so *** nhat la: ',b);
readln;
end.
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui long nhap hai so khac nhau') else if a>b then writeln('so lon nhat la: ',a) else writeln('so lon nhat la: ',b); readln; end.
Viết chương trình giải ptrinh tìm số lớn nhất trong 3 số nguyên a, b, c ( a,b,c nhập từ bàn phím )
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('vui ***g nhap hai so khac nhau')
else if a>b then writeln('so *** nhat la: ',a)
else writeln('so *** nhat la: ',b);
readln;
end.
Câu hỏi hot cùng chủ đề
-
hằng là gì ? nêu cú pháp khai báo hằng
Trả lời (16) Xem đáp án »
-
Hỏi từ APP VIETJACK
Đâu là các từ khóa:A.Program,end,beginB.Program,end,begin,Readln,lop8aC.Program,then,mot,hai,bà
D.lop82,uses,begin,end