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.

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.

2 tháng 10 2021

Tuổi trẻ (C)/ mà không làm được gì cho đời, cho bản thân (V) thì nó (C)/ vẫn xồng xộc đến tuổi già (V)

→ Câu ghép

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)

lấy đâu nhiều bài thế

15 tháng 9 2021

có 1baif mà

9 tháng 12 2023

a)  Tôi đang làm bài tập.
-Bài này là tự đặt câu đúng hog ạ?Nếu có sai sót mong bạn bỏ qua cho ạ=.=-

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;

13 tháng 12 2021

a: BC=50cm

AE=25cm