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.
![](https://rs.olm.vn/images/avt/0.png?1311)
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
*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.
*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.
![](https://rs.olm.vn/images/avt/0.png?1311)
program UocChia;
var
n, i: integer;
begin
write('Nhap gia tri cua n: ');
readln(n);
writeln('Cac so co uoc la 3 tu 1 den ', n, ' la:');
for i := 1 to n do
begin
if i mod 3 = 0 then
write(i, ' ');
end;
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Cau 1:
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
![](https://rs.olm.vn/images/avt/0.png?1311)
program TongUoc;
uses crt;
var
N, i, Tong: integer;
begin
clrscr;
Tong := 0;
write('Nhap so tu nhien N: ');
readln(N);
// Tinh tong cac uoc cua N
for i := 1 to N do
begin
if N mod i = 0 then
begin
Tong := Tong + i;
end;
end;
writeln('Tong cac uoc cua ', N, ' la: ', Tong);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var n,i,d,x,j,tam:longint;
a:array[1..11]of integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
str(n,st);
d:=length(st);
for i:=1 to d do
begin
val(st[i],a[i],x);
end;
for i:=1 to d-1 do
for j:=i+1 to d do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to d do
write(a[i]);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
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é!
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.