Viết chương trình nhập vào số N từ bàn phím in ra màn hình chia hết cho 3
2 câu trả lời
Uses crt;
Var i,n :Integer;
a:array [1..100] of integer;
begin
Readln(n);
For i:=1 to n do
read(a[i]);
for i:=1 to n do
If a[i] mod 3 = 0 then write(a[i]);
end.
uses crt;
var n,i,d : integer;
a : array[1..100] of longint;
begin clrscr;
write('Nhap n :'); readln(n);
d:=0;
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 3 = 0 then write(a[i]:3);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề 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
