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
3 tháng 8 2023
program SoUocLa3;
var
n, i, count: integer;
begin
write('Nhap gia tri cua n (10<=n<=10^9): ');
readln(n);
writeln('Cac so co so uoc la 3 tu 1 den ', n, ' la:');
count := 0;
for i := 1 to n do
begin
if (n mod i = 0) then
begin
count := count + 1;
end;
if (count = 3) then
begin
write(i, ' ');
count := 0;
end;
end;
readln;
end.
10 tháng 5 2021
*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
10 tháng 5 2021
*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
H9
HT.Phong (9A5)
CTVHS
22 tháng 2 2023
Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if (n mod 2<>0) then
write(i:2);
readln;
end.
20 tháng 3 2023
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.
9 tháng 5 2021
uses crt;
var m,n,t,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
t:=t+i;
writeln(t);
readln;
end.
22 tháng 4 2023
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
uses crt;
var i,n: longint;
begin
clrscr;
readln(n);
for i:=1 to n do write(i,' ');
readln
end.
Uses crt;
Var a,b,n:integer; {Với a,b phải là số nhỏ thì dùng với kiểu integer}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
Begin
b:=b+a;
a:=a+1; {Chỉ áp dụng với tổng các số liên tiếp}
end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
Bài mẫu của mình đây nhé!