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.
var i,n,tb :integer;
begin
readln(n);
tb:=0;
for i:=1 to n do tb:=tb+1;
writeln(tb);
end.
program CTTTB;
uses crt;
var TB,x:real; n,y: integer;
begin
Write('Hay nhap so so thuc ban can tinh TB'); Readln(n);
for y:=1 to n do
begin Write('Nhap so thu',y);Readln(x);
TB:=TB+x;
end;
TB:=TB/n;
Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB);
Readln;
End.
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s:3:0);
end.
Program So_nho_nhat;
uses crt;
Var i,n:Byte; so,Min:Integer;
Begin
clrscr;
Writeln('TIM SO LON NHAT TRONG N SO NGUYEN');
Writeln('---------------------------------'); Write('Cho biet so phan tu nhap N= '); Readln(n); i:=1;
Write('So thu ',i,' = '); Readln(so); Min:=so; For i:=2 To N Do Begin
Write('So thu ',i,' = '); Readln(so);
If Min < so Then Min:=so;
End;
Writeln;
Writeln('+So lon nhat trong ',n,' so vua nhap la so: ',Min);
Writeln(' Bam phim de ket thuc');
Readln;
End.
Program bai1;
uses crt;
var a: array [1..100] of integer;
i,n,min,s: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
min:=a[1];
s:=0;
for i := 1 to n do
s:=s+a[i];
write('tong cac day so trong mang =',s :4);
writeln;
for i:= 1 to n do
if min > a[i] then min:=a[i];
write('so nho nhat trong day la :' ,a[i]);
readln;
end.
Số chính phương là một số nguyên có căn bậc hai là một số nguyên (ví dụ: 9 là số chính phương vì =3). Viết chương trình tìm, đếm và tính tổng các số chính phương có trong dãy số nguyên dương gồm N phần tử A1, A2, …, AN.
Dữ liệu vào: Nhập từ bàn phím.
Kết quả ra: Xuất ra màn hình gồm 3 dòng:
- Dòng 1 ghi các số chính phương của dãy giữ nguyên thứ tự xuất hiện (mỗi số cách nhau một dấu cách).
- Dòng 2 ghi số lượng số chính phương trong dãy.
- Dòng 3 ghi tổng của các số chính phương trong dãy.
Ví dụ:
|
Nhập từ bàn phím |
Xuất ra màn hình |
|
N = 7 11 4 100 5 25 36 10 |
4 100 25 36 4 165 |
GIẢI :
Program HOC24;
var n,i,d: integer;
t: longint;
a: array[1..32000] of integer;
function cp(x: integer): boolean;
begin
cp:=false;
if x=sqr(trunc(sqrt(x))) then cp:=true;
end;
begin
write('N='); readln(n);
for i:=1 to n do read(a[i]);
readln;
t:=0; d:=0;
for i:=1 to n do
if cp(a[i]) then
begin
write(a[i],' ');
inc(d);
t:=t+a[i];
end;
writeln;
writeln(d);
write(t);
readln
end.
Program HOC24;
var x,i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(x);
inc(a[x]);
end;
for i:=1 to 32000 do
if a[i]<>0 then write(i,' ');
writeln;
for i:=1 to n do if a[i]<>0 then writeln(i,':',a[i]);
readln
end.
Bài 1:
Input: số nguyên N và dãy a1,...,an
output: số lượng số dương trong dãy.
Ý tưởng:
khởi gán dem=0
lần lượt chia các a[i] (i:1->N) cho 2
nếu ai chia hết cho 2 dư 0 thì dem=dem+1
diễn tả thuật toán
liệt kê:
b1: nhập số nguyên dương N và dãy a1, a2,..,an
b2: i<-1 , dem<-0
b3: i>N thì đưa ra biến dem rồi kthúc
b4: ai chia hết cho 2 thì dem<-dem+1
b5: i<-i+1, quay lại bc 3
Program bai1;
uses crt;
var a: array [1..100] of integer;
n,i,dem: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
dem:=0;
for i:= 1 to n do
if a[i] > 0 then dem:=dem+1;
write('co ',dem,' so duong trong day ');
readln;
end.
Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.
Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.
Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.
Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.
Kết quả thực hiện thuật toán Sum = 5050.
Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.
Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.
Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.
Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.
Kết quả thực hiện thuật toán Sum = 5050.
var i,n,d:word;
t,b,kt:array[1..10] of word;
procedure nhap;
var f:text;
begin
assign(f,'dulieu.inp');
reset(f);
readln(f,n);
for i:=1 to n do read(f,t[i]);
close(f);
fillchar(b,sizeof(kt),0);
end;
procedure tailap;
var i,j,d:integer;
begin
for i:=1 to n do
begin
d:=0;
for j:=1 to n do
begin
if b[j]=0 then d:=d+1;
if d=t[i]+1 then break;
end;
b[j]:=i;
end;
end;
BEGIN
nhap;
tailap;
for i:=1 to n do write(b[i],' ');
readln
END.