GF
1
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
GF
0
NA
1
GH
28 tháng 4 2017
1/
program uoc;
uses crt;
var n,i,dem,x:word;
a:array[1..20] of longint;
begin
clrscr;
write('nhap so phan tu cua day:') ;readln(n);
while n>20 do
begin
write('nhap lai so phan tu thoa man toi da la 20 phan tu:');
readln(n);
end;
writeln('nhap cac phan tu cua mang:');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap so nguyen x:'); readln(x);
dem:=0;
for i:=1 to n do
if x mod a[i] =0 then
begin
dem:=dem+1;
writeln(a[i],' la uoc cua ',x);
end;
if dem=0 then writeln('khong co phan tu la uoc cua ',x)
else write('co ',dem,' phan tu la uoc cua ',x);
readln;
end.
17 tháng 10 2021
nhìn mặc áo hình như trò chơi con mực đúng hông đấy là trò giết người hả
17 tháng 10 2021
Tl :
Khong duoc viet lung tung tren dien dang
~ H T ~
DN
1
7 tháng 5 2023
A = [ ]
for i in range(20):
A.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))
tong = sum(A)
trung_binh = tong / len(A)
print("Mảng A =", A)
print("Giá trị trung bình của mảng A là", trung_binh)
5 tháng 5 2021
type mang=array[1..10]of integer;
function demsochiahet(a:mang):integer;
var dem,i,n:integer;
begin
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then inc(dem);
demsochiahet:=dem;
end;
29:
uses crt;
var n,i,j,kt:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.