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.
program bt;
var n,i:integer;
a:array[1..100] of integer;
procedure nhap;
begin
writeln('nhap so pt');
readln(n);
writeln('nhap mang');
for i:=1 to n do read(a[i]);
end;
procedure xuli;
begin
dem:=0;
for i:=1 to n do
if a[i] mod 2= 0 then begin
writeln(a[i]);
inc(dem);
end;
begin
nhap;
xuli;
readln;
end.
Chúc bạn làm tốt!( có sai nói mik nhe)
uses crt;
var a:integer;
begin
clrscr;
write('nhap a='); readln(a);
if a mod 7=0 then writeln(a,' la boi cua 7')
else writeln(a,' khong la boi cua 7');
readln;
end.
1.Bàn phím
2. Thiết bị chỉ điểm - Pointing Device
3.Thiết bị đọc
4.Các thiết bị số hóa thế giới thực
5. Đĩa CD
6. USB
1. Dạng văn bản(báo chí, sách vở,...),dạng âm thanh(tivi, đài,...), dạng hình ảnh(hình trong tạp chí, sách giáo khoa...)
2. Quá trình xử lý thông tin trong đời sống và máy tính: Vd : làm phép tính cộng, soạn thảo văn bản,....
3. Có thể làm nhiều điều với máy tính như tính toán, soạn thảo, liệt kê bảng tính, xem phim,.....
4 CPU, RAM, ổ cứng, màn hình, chuột, bàn phím, quạt tản nhiệt trong CPU, Card màn hình, card đồ họa.
5 Học tập : Mouse Skills,Mario, Solar System 3D Simulator,Typing Test,Toolkit,Math,Geogebra...
Giải trí : LOL, Pikachu, bắn gà,...
6. Có 5 thao tác
Di chuyển chuột : giữ và di chuyển chuột trên mặt phẳng
Nháy chuột : nhấn chuột trái và thả tay
Nhấn nút phải chuột : nhấn chuột phải và thả tay
Nhấn đúp chuột : nhấn liên tiếp 2 lần chuột trái và thả tay
Kéo thả chuột : nhấn giữ chuột -> kéo đến phần cần thao tác
7. Tự xử đi, mệt rồi...
B1 nhập số nguyên n từ bàn phím và đưa ra thông báo n là số âm hay số dương
B2 nhập vào 3 số nguyên a b c bất kì từ bàn phím và đưa ra kết quả tính tổng của 3 số đó và phép chia tổng a và b cho C
còn cái dưới mình chịu