program ct;uses crt;
var i:integer;
A:array[1..30] of integer;
begin
clrscr;
for i:=1 to 30 do
write('nhap mang A[',i,']:=);readln(A[i]);
end;
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;
write('Nhap phan tu thu ',i,': '); readln(A[i]);
writeln('So chia het cho 3 la: ');
if A[i] mod 3=0 then write(A[i]:3);
readln;
Học tốt
Một ô tô dự định đi từ A đến B với vận tốc trung bình 45km/h.Lúc đầu ô tô đi với vận tốc đó.Sau khi đi được nửa quãng đường xe nghỉ 20p rồi đi tiếp đến B với vận tốc 50km/h nên chỉ đến B chậm hơn dự định 8p.Tính quãng đường AB.
Bản thân em phải làm gì để phòng chống tệ nạn xã hội?
Em cần làm gì để ủng hộ các hoạt động cơ quan nhà nước?
giá trị dinh dưỡng của các nhóm thức ăn
cho ΔABC vuông tại A. AB= 3cm, AC= 4cm. BD là đường phân giác và vẽ CE vuông góc với tia BD tại E a) chứng minh: ΔABD đồng ΔECD b)chứng minh: DA.DC=DB.DE c)chứng minh: diện tích Δabd/diện tích Δbcd d) chứng minh AE=CE
đường kính của một quả cầu được thay đổi như thế nào khi nhiệt độ thay đổi
Brain's attitude ........ His work has always been very postive
Từ bài học đường đời đầu tiên của Dế Mèn , em hãy viết một đoạn văn nói về những bài học cuộc sống rút ra cho bản thân
Giúp e với ạ Em đang cần gấp ah Em cảm ơn
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
