Tin học Viết chương trình Pascal lớp 8

[loctp2002]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết ct tìm các số trong dãy số chia hết cho 3. Các số trong dãy số dc nhập từ bàn phím

 

[Thiên Thuận]

Bài này có cần viết ra các số chia hết cho 3 hay tính tổng, hiệu hay tích gì không bạn?

 

[loctp2002]

Bài này có cần viết ra các số chia hết cho 3 hay tính tổng, hiệu hay tích gì không bạn?

chỉ viết ra các số chia hết cho 3 trong các số mình nhập
vd:2 3 6 7 8 9 5 thì kết quả là 3 6 9

 

[huy20144]

for i:=1 to n do
if a mod 3=0 then
write(a,' ');
Phần còn lại bạn tự xử

 

[S I M O]

Var i,n : integer;
Begin
Read (n);
For i:=1 to n do if (i mod 3)=0 then writeln (i);
End.

 

[Thiên Thuận]

chỉ viết ra các số chia hết cho 3 trong các số mình nhập
vd:2 3 6 7 8 9 5 thì kết quả là 3 6 9

Ok. Code đây bạn

var n,i: integer;
A: array [1..100] of integer;
begin
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,'] = '); readln(A);
end;
writeln;
writeln('Cac so chia het cho 3 la: ');
for i:=1 to n do
if A mod 3 = 0 then write(A:5);
readln
end.

 

[loctp2002]

Ok. Code đây bạn

var n,i: integer;
A: array [1..100] of integer;
begin
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,'] = '); readln(A);
end;
writeln;
writeln('Cac so chia het cho 3 la: ');
for i:=1 to n do
if A mod 3 = 0 then write(A:5);
readln
end.

ok. cám ơn bạn nha

 

[S I M O]

Ok. Code đây bạn

var n,i: integer;
A: array [1..100] of integer;
begin
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,'] = '); readln(A);
end;
writeln;
writeln('Cac so chia het cho 3 la: ');
for i:=1 to n do
if A mod 3 = 0 then write(A:5);
readln
end.

Mình nghĩ array khong cần giới hạn là 1..100 có thể là A; array [1..n] of integer;

 

[loctp2002]

giúp mình bài này nữa
Viết ct tìm tất cả các số trong dãy số thỏa mãn tính chất bằng tổng của 2 số đứng trước nó.
Vd: cho dãy số có 7 phần tử sau: 5 8 13 4 9 2 11
Thì kết quả là 13 11

 

[Nguyễn Thánh Tiền]

for i :=3 to n do
if a[ i ] = a[ i- 1] + a[i -2] then write ( a[ i ], " ");