2 trả lời
Phát biểu đó đúng hay sai; tại sao [Tin học - Lớp 7]
2 trả lời
Điền số thích hợp vào chỗ chấm [Tin học - Lớp 7]
2 trả lời
Câu lệnh nào sai [Tin học - Lớp 8]
1 trả lời
Định dạng văn bản là gì [Tin học - Lớp 6]
2 trả lời
Câu 1 :
program cau1;uses crt;var a : array[1..100] of integer;n,i,t : integer;begin clrscr;t:=0;write['Nhap so n :']; readln[n];for i:=1 to n do beginwrite['Nhap a[',i,']=']; readln[a[i]]; end;writeln['Cac phan tu le cua mang :'];for i:=1 to n do if a[i] mod 2 = 1 then write[a[i]:3];writeln;for i:=1 to n do if a[i] mod 2 = 0 then t:=t+a[i];writeln['Tong cac phan tu chan cua mang la :', t];readln
end.
Câu 2 :
program cau2;uses crt;var a : array[1..100] of integer;n,i,k,dem : integer;begin clrscr;dem:=0;write['Nhap so n :']; readln[n];for i:=1 to n do beginwrite['Nhap a[',i,']=']; readln[a[i]]; end;write['Nhap so k :'] ; readln[k];for i:=1 to n do if a[i] = k then dem:=dem+1;writeln['Co ',dem,' gia tri bang ',k,' trong mang'];writeln['Cac phan tu la boi cua ',k,' la :'];for i:=1 to n do if a[i] mod k = 0 then write[a[i]:4];writeln;writeln['Cac so am trong mang la :'];for i:=1 to n do if a[i] < 0 then write[a[i]:3];readln
end.
uses crt;var n,i,tong:integer;a:array[1..100] of integer;beginclrscr;write['nhap n:'];readln[n];for i:=1 to n dobeginwrite['a[',i,']='];readln[a[i]];end;writeln['mang vua nhap la:'];for i:=1 to n do tong:=0; writeln['tong cac phan tu trong mangla:', tong];readln;
end.
Top 1 ✅ Viết chương trình nhập mảng A gồm n số nguyên nhập từ bàn phím. a]Kiểm tra xem trong các phần tử, phần tử nào là số nguyên tố. b]Kiểm tra xe nam 2022 được cập nhật mới nhất lúc 2021-12-20 17:54:12 cùng với các chủ đề liên quan khác
Viết chương trình nhập mảng A gồm n số nguyên nhập từ bàn phím.a]Kiểm tra xem trong các phần tử, phần tử nào Ɩà số nguyên tố.b]Kiểm tra xe
Hỏi:
Viết chương trình nhập mảng A gồm n số nguyên nhập từ bàn phím. a]Kiểm tra xem trong các phần tử, phần tử nào Ɩà số nguyên tố. b]Kiểm tra xem trong các phần tử, phần tử nào Ɩà số chính phương.P/s: nhớ Ɩàm 2 câu a,b tách rời.
Em đang cần rấт rấт gấp tl hộ e e vote 5 sao ạ.
Đáp:
cattien:uses crt;var a : array[1..100] of integer;i,n : integer;function snt[x : integer] : boolean;var i,d : integer;begin d:=0;for i:=1 to x do if x mod i = 0 then d:=d+1;if d=2 then snt:=true else snt:=false; end;function scp[x : integer] : boolean;var n : integer;begin n:=trunc[sqrt[x]];if sqr[n]=x then scp:=true else scp:=false; end;begin clrscr;write[‘Nhap so phan tu :’]; readln[n];for i:=1 to n do beginwrite[‘Nhap a[‘,i,’]=’]; readln[a[i]];end;writeln[‘Cac phan tu la so nguyen to trong mang :’];for i:=1 to n do if snt[a[i]]=true then write[a[i]:3];writeln;writeln[‘Cac phan tu la so chinh phuong trong mang :’];for i:=1 to n do if scp[a[i]]=true then write[a[i]:3];readln
end.
cattien:uses crt;var a : array[1..100] of integer;i,n : integer;function snt[x : integer] : boolean;var i,d : integer;begin d:=0;for i:=1 to x do if x mod i = 0 then d:=d+1;if d=2 then snt:=true else snt:=false; end;function scp[x : integer] : boolean;var n : integer;begin n:=trunc[sqrt[x]];if sqr[n]=x then scp:=true else scp:=false; end;begin clrscr;write[‘Nhap so phan tu :’]; readln[n];for i:=1 to n do beginwrite[‘Nhap a[‘,i,’]=’]; readln[a[i]];end;writeln[‘Cac phan tu la so nguyen to trong mang :’];for i:=1 to n do if snt[a[i]]=true then write[a[i]:3];writeln;writeln[‘Cac phan tu la so chinh phuong trong mang :’];for i:=1 to n do if scp[a[i]]=true then write[a[i]:3];readln
end.
cattien:uses crt;var a : array[1..100] of integer;i,n : integer;function snt[x : integer] : boolean;var i,d : integer;begin d:=0;for i:=1 to x do if x mod i = 0 then d:=d+1;if d=2 then snt:=true else snt:=false; end;function scp[x : integer] : boolean;var n : integer;begin n:=trunc[sqrt[x]];if sqr[n]=x then scp:=true else scp:=false; end;begin clrscr;write[‘Nhap so phan tu :’]; readln[n];for i:=1 to n do beginwrite[‘Nhap a[‘,i,’]=’]; readln[a[i]];end;writeln[‘Cac phan tu la so nguyen to trong mang :’];for i:=1 to n do if snt[a[i]]=true then write[a[i]:3];writeln;writeln[‘Cac phan tu la so chinh phuong trong mang :’];for i:=1 to n do if scp[a[i]]=true then write[a[i]:3];readln
end.
Viết chương trình nhập mảng A gồm n số nguyên nhập từ bàn phím.a]Kiểm tra xem trong các phần tử, phần tử nào Ɩà số nguyên tố.b]Kiểm tra xe
Xem thêm : ...
Vừa rồi, baohongkong.com đã gửi tới các bạn chi tiết về chủ đề Viết chương trình nhập mảng A gồm n số nguyên nhập từ bàn phím. a]Kiểm tra xem trong các phần tử, phần tử nào là số nguyên tố. b]Kiểm tra xe nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Viết chương trình nhập mảng A gồm n số nguyên nhập từ bàn phím. a]Kiểm tra xem trong các phần tử, phần tử nào là số nguyên tố. b]Kiểm tra xe nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Viết chương trình nhập mảng A gồm n số nguyên nhập từ bàn phím. a]Kiểm tra xem trong các phần tử, phần tử nào là số nguyên tố. b]Kiểm tra xe nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng baohongkong.com phát triển thêm nhiều bài viết hay về Viết chương trình nhập mảng A gồm n số nguyên nhập từ bàn phím. a]Kiểm tra xem trong các phần tử, phần tử nào là số nguyên tố. b]Kiểm tra xe nam 2022 bạn nhé.
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
Create an account
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Nhập vào mảng A gồm n số nguyên [n