Viết ct nhập vào mảng gồm 30 số nguyên, tìm xem số nào chia hết cho 3 trong mảng
2 câu trả lời
program ct;
uses crt;
var i:integer;
A:array[1..30] of integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('nhap mang A[',i,']:=);readln(A[i]);
end;
for i:=1 to 30 do
if A[i] mod 3=0 then writeln(A[i],' chi het cho 3') else writeln(A[i],' khong chi het cho 3');
readln
end.
program ct;
uses crt;
var A:array[1..30] of integer;
i:integer;
begin clrscr;
for i:=1 to 30 do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
writeln('So chia het cho 3 la: ');
for i:=1 to 30 do
if A[i] mod 3=0 then write(A[i]:3);
readln;
end.
Học tốt
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
