Để nhập dữ liệu từ bàn phím hoặc in kết quả ra màn hình ta sử dụng lệnh nào?
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:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a<b then writeln(b:4:2)
else writeln('Goodbye');
readln;
end.
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:0:0);
readln;
end.
Câu 2:
a) Dùng vòng lặp For...do
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=1 to 50 do
s:=s+i;
writeln('Tong 50 so tu nhien dau tien la: ',s);
readln;
end.
b) Dùng vòng lặp While...do
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
i:=1;
while i<=50 do
begin
s:=s+i;
inc(i);
end;
writeln('Tong 50 so tu nhien dau tien la: ',s);
readln;
end.
Câu 3:
uses crt;
var n,i,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So cac so chan la: ',dem);
readln;
end.
var s,n:integer;
begin
s:=0;
n:=1;
while s<=100 do
begin
s:=s+n;
n:=n+1;
end;
writeln('So n nho nhat de tong>100 la: ',n);
writeln('Tong dau tien >100 la: ',s);
readln;
end.
Bài 1:
*Dùng For..do
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
*Dùng While..do
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
while i<=n do
begin
if n mod i=0 then write(i:4);
inc(i);
end;
readln;
end.
Bài 2:
*Dùng For..do
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if (n mod i=0) and (i mod 2=0) then write(i:4);
readln;
end.
*Dùng While..do
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
while i<=n do
begin
if (n mod i=0) and (i mod 2=0) then write(i:4);
inc(i);
end;
readln;
end.
Bài 3:
*Dùng For..do
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
*Dùng While..do
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if n mod i=0 then t:=t+i;
inc(i);
end;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
Bài 4:
*Dùng For..do
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=100 to 999 do
if i mod 3=0 then inc(dem);
writeln('So cac so co 3 chu so chia het cho 3 la: ',dem);
readln;
end.
*Dùng While..do
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
i:=100;
while i<=999 do
begin
if i mod 3=0 then inc(dem);
inc(i);
end;
writeln('So cac so co 3 chu so chia het cho 3 la: ',dem);
readln;
end.
Bài 5:
*Dùng For..do
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu 1 toi ',n,' la: ',t);
readln;
end.
*Dùng While..do
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
inc(i);
end;
writeln('Tong cac so chan tu 1 toi ',n,' la: ',t);
readln;
end.
Bài 6:
*Dùng For..do
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln('Tong cac so le tu 1 toi ',n,' la: ',t);
readln;
end.
*Dùng While..do
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if i mod 2=1 then t:=t+i;
inc(i);
end;
writeln('Tong cac so le tu 1 toi ',n,' la: ',t);
readln;
end.
Bài 7:
*Dùng For..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if i mod 5=0 then write(i:4);
readln;
end.
*Dùng While..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
while i<=n do
begin
if i mod 5=0 then write(i:4);
inc(i);
end;
readln;
end.
Bài 8:
*Dùng For..do
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if (n mod i=0) and (i mod 2=1) then inc(dem);
writeln('So uoc le cua ',n,' la: ',dem);
readln;
end.
*Dùng While..do
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
i:=1;
while i<=n do
begin
if (n mod i=0) and (i mod 2=1) then inc(dem);
i:=i+1;
end;
writeln('So uoc le cua ',n,' la: ',dem);
readln;
end.
Bài 9:
*Dùng For..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
for i:=1 to 10 do
writeln(n*i);
readln;
end.
*Dùng While..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
i:=1;
while i<=10 do
begin
writeln(n*i);
inc(i);
end;
readln;
end.
Bài 10:
*Dùng For..do
uses crt;
var i,n,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then write(n,' la so nguyen to')
else write(n,' la hop so');
readln;
end.
*Dùng While..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=2;
while (n mod i<>0) and (i<=n) do
begin
inc(i);
end;
if i=n then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
readln;
end.
1: var b:array[5..95]of real;
2: for i:=10 to 20 do
begin
write('B[',i,']='); readln(b[i]);
end;
Nhập: Readln(<biến nhập>);
Xuất: Writeln;