Viết Chương Trình Pascal Cho Nhập N Nguyên , Dương Từ Bàn Phím . In ra màn hình : -Các Ước Của N Không Kể N -Xác Định N Có Phải Là Số Hoàn Hảo -Tất Cả Số Hoàn Hảo Trong Phạm Vi Từ 1-> N
Bài 8. Lặp với số lần chưa biết trước
program bai_toan;
var
N, i, sum: integer;
begin
write('Nhap so N: ');
readln(N);
write('Cac uoc cua ', N, ' khong ke ', N, ' la: ');
for i := 1 to N - 1 do
if N mod i = 0 then
write(i, ' ');
writeln;
sum := 0;
for i := 1 to N - 1 do
begin
if N mod i = 0 then sum := sum + i;
end;
if sum = N then writeln(N, ' la so hoan hao')
else writeln(N, ' khong phai la so hoan hao');
writeln;
writeln('Tat ca so hoan hao trong pham vi 1 -> ', N, ' la:');
for i := 1 to N do
begin
sum := 0;
for j := 1 to i - 1 do
begin
if i mod j = 0 then sum := sum + j;
end;
if sum = i then writeln(i);
end;
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số. Sau đó đếm xem có bao nhiêu số chia hết cho 2,3 . rồi sắp xếp theo thứ tự giảm đần. Giúp e vs cần gấp lắm
Var a:array:[1..1000] of integer;
i,n,t,d:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then
d:=d+1;
End;
Writeln('Co ',d,' so chia het cho 2 va 3');
For i:=1 to n do
If a[i] < a[i+1] then
begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
end;
write('Day sau khi sap xep la: ');
for i:=1 to n do
Write(a[i]:8);
Readln
End.
Đúng 2
Bình luận (0)
. Giá trị của S là bao nhiêu sau khi thực hiện câu lệnh:S:5; For i:1 to 3 do S:S+3;A. 5 B. 9 C. 18 D. 14.
Đọc tiếp
. Giá trị của S là bao nhiêu sau khi thực hiện câu lệnh:
S:=5; For i:=1 to 3 do S:=S+3;
A. 5 B. 9 C. 18 D. 14.
For i:=1 to 3 do s:=s+3;
Câu lệnh thực hiện cộng vào biến S 3 đơn vị 3 lần. -> S = 5 + 3 + 3 + 3 = 14
Vậy S=14 . Chọn D.
Đúng 2
Bình luận (0)
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
Bài 5:
Var a:array:[1..1000] of integer;
i,n,max:integer;
sc, sl:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');rreadlna[i]);
If a[i] mod 2 = 0 then sc:=sc+b[i];
If a[i] mod 2 <> 0 then sl:=sl+a[i];
End;
max:=a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
Writeln('Tong cac so chan la ',sc);
Writeln('Tong cac so le la ',sl);
write('So lon nhat la ',max);
Readln
End.
Đúng 1
Bình luận (1)
Viết chương trình nhập số N số thực từ bàn phím vào một mảng tình trung bình cộng các số vừa nhập
program TinhTBC;
uses crt;
var
N, i: integer;
Tong, TBC : real;
A: array[1..100] of real;
begin
write('Nhap so phan tu mang N = ');
readln(N);
writeln('Nhap cac phan tu cua mang: ');
for i:=1 to N do
begin
write('A[', i, '] = ');
readln(A[i]);
end;
Tong := 0;
for i:=1 to N do
Tong := Tong + A[i];
TBC := Tong / N;
writeln('Tong cac phan tu: ', Tong:5:2);
writeln('Trung binh cong: ', TBC:5:2);
readln;
end.
Đúng 1
Bình luận (0)
Câu 36. Cho đoạn chương trình: i:1; j:2; k:3;While i6 do i:i+1; j:j+1; k:k+j;Writeln (i, j, k);Sau khi thực hiện đoạn chương trình trên i, j, k có kết quả làA. 6;3;6B. 6;6;12C. 6;7;12D. 6;7;28
Đọc tiếp
Câu 36. Cho đoạn chương trình:
i:=1; j:=2; k:=3;
While i<6 do i:=i+1; j:=j+1; k:=k+j;
Writeln (i, j, k);
Sau khi thực hiện đoạn chương trình trên i, j, k có kết quả là
A. 6;3;6
B. 6;6;12
C. 6;7;12
D. 6;7;28
Cho đoạn chương trình:i:4; K:7;while i6 do i:i+1; k:k+1;Writeln(i,,k);Sau khi thực hiện đoạn chương trình trên i, K có kết quả là.A. 6;13B. 6;12C. 6;7D. 6;6
Đọc tiếp
Cho đoạn chương trình:
i:=4; K:=7;
while i<6 do i:=i+1; k:=k+1;
Writeln(i,,k);
Sau khi thực hiện đoạn chương trình trên i, K có kết quả là.
A. 6;13
B. 6;12
C. 6;7
D. 6;6
i = 6; k = 8
\(\Rightarrow\) Không có đáp án đúng
Đúng 0
Bình luận (0)
viết trương trình sử dụng vòng lặp while...do đế tính các số tự nhiên chia hết cho 2,khonng vuwotj quá số n cho trước
Viết chương trình có sử dụng mảng các phần tử nhập vào từ bàn phím. Độ dài của dãy số nhập vào từ bàn phím.In tổng các số chẵn