viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
Bài 6. Câu lệnh điều kiện
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
program SoHoanHao;
uses crt;
var
i, j, n, s: integer;
begin
clrscr;
write('Nhap n: ');
readln(n);
for i := 1 to n do
begin
s := 0;
for j := 1 to i - 1 do
begin
if i mod j = 0 then
s := s + j;
end;
if s = i then
writeln(i);
end;
readln;
end.
Đúng 1
Bình luận (0)
Câu1 viết chương trình nhập giá trị n từ ban phím in các số chẵn từ 1 đến n Câu2 viết chương trình in ra màn hình các số chẵn đầu tiên với chẵn nhỏ nhất >1000 Lm ơn tui sắp kiểm tra r
Câu 1:
var i,n:integer;
begin
write('n = ');readln(n);
For i:=1 to n do
if i mod 2 = 0 then write(i:6);
readln;
end.
Đúng 1
Bình luận (0)
Câu lệnh sau Do thường là câu lệnh gì
Câu lệnh sau do có thể là câu lệnh đơn hoặc câu lệnh ghép
Đúng 1
Bình luận (0)
Câu lệnh sau Đó thường là câu lệnh gì
Câu 2 : Cho vòng lặp:S:0;For i:1 to 20 doS:s + i/2;Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do mình đang cần gấp ạ
Đọc tiếp
Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
mình đang cần gấp ạ
Chuyển thành while..do
s:=0; i:=1;
while i<=n do
begin
s:=s+i/2;
i:=i+1;
end;
Đúng 0
Bình luận (0)
Câu 2 : Cho vòng lặp:S:0;For i:1 to 20 doS:s + i/2;Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
Đọc tiếp
Câu 2 : Cho vòng lặp:
S:=0;
For i:=1 to 20 do
S:=s + i/2;
Hãy biến đổi vòng lặp trên 1 thành vòng lặp while…do
viết công thức nhập vào số tự nhiên N, hãy in ra các số chẵn trong đoạn từ 1 đến N
Program PASCAL;
Var
i, N: Integer;
Begin
Write('Nhap vao so nguyen N: ');
Readln(N);
For i := 1 to N do
Begin
If (i mod 2 = 0) then
Writeln(i);
End;
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình nhập một xâu bất kì , rồi đếm xem xâu đó có bao nhiêu số 8 liên tiếp.nếu không có in ra 0.
Vd
Inp 44487878
Outp 0
Vd2
Inp 5488888888
Outp 8
program Xau219;
uses crt;
Var S:String;
dem, max, i:Byte
begin
clrscr;
Write ('Nhap xau:'); Readln (S);
max:=0; dem:=0; S:=S+''
For i:=1 to Length (S) do
begin
If S[i] ='8' then dem:=dem+1
else
If max<them then
begin max:=dem; dem:=0; end;
end;
Writeln('Ket qua:'max);
readln;
end.
Đúng 1
Bình luận (1)
Viết chương trình nhập 4 số và tính:
-Tổng 4 số
-Số lớn nhất
-Số bé nhất
-Số chia hết cho 2
-Số không chia hết cho 3
-So sánh số đầu và số cuối.
Đúng 0
Bình luận (0)
Cau 14: x=6; y=3
Cau 13: a=2; b=1
Cau 12:
Input: x
Output: Nghiệm của pt x+3+20=0
Đúng 0
Bình luận (3)