ai mà biết

C

C

C

tui đêy

Không

-_- chỗ này ko pk chỗ kiếm ny bn nhá

var a:array[1..100] of real;

i,b:integer;

s:real;

begin

write('Nhap so luong phan tu ');readln(b);

for i:=1 to b do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

end;

write('Tong cac phan tu la ',s:10:2);

readln

end.

(b<100)

Uses crt;

var i,n,t: longint;

b: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

for i:=1 to n do t:=t+a[i];

writeln(t:1:1);

readln;

end.

Câu 1: Điều tr/ch, s/x, r/d/gi, l/n vào chỗ trống:

- Trái cây, chờ đợi, chuyển chỗ, trải qua, trôi chảy, trơ trụi, nói chuyện, chương trình, chẻ tre.

- Sấp ngửa, sản xuất, sơ sài, bổ sung, xung kích, xua đuổi, cái xẻng, xuất hiện, chim sáo, sâu bọ.

- Rũ rượi, rắc rối, giảm giá, giáo dục, rung rinh, rùng rợn, giang sơn, rau diếp, dao kéo, giao kèo, giáo mác.

- Lạc hậu, nói liều, gian nan, nết na, lương thiện, ruộng nương, lỗ chỗ, lén lút, bếp núc, lỡ làng.

Câu 2: Lựa chọn từ điền thích hợp:

a. vây cá, dây sợi, dây điện, vây cánh, dây dưa, giây phút, bao vây.

b. giết giặc, da diết, viết văn, chữ viết, giết chết.

c. hạt dẻ, da dẻ, vẻ vang, văn vẻ, giẻ lau, mảnh dẻ, vẻ đẹp, giẻ rách.

Câu 3: Chọn điều s, x vào chỗ trống:

Theo thứ tự lần lượt, cần điền là: xám, sát, sấm, sáng, xé, sung, sổ, xơ, xác, sầm, sập, xoảng.

Câu 4:

Các từ cần điền lần lượt là: buộc, buột, duộc (hay giuộc), tuộc, đuột, chuột, chuột, muốt, chuộc.

Câu 5: Điền ? , ~

Vẽ tranh, biểu quyết, dè bỉu, bủn rủn, dai dẳng, hưởng thụ, tưởng tượng, ngày giỗ, lỗ mãng, cổ lỗ, ngẫm nghĩ.

Câu 6: Các câu được sửa như sau:

- Tía đã nhiều lần căn dặn rằng không được kiêu căng.

- Một cây tre chắn ngang đường chẳng cho ai vô rừng chặt cây, đốn gỗ.

- Có đau thì cắn răng mà chịu nghen.

đây là bài chương trình địa phương(phần tiếng việt) rèn luyện chính tả tập 1 không phải tập 2

Có nhiều cách mở:

uses crt;

var i,n,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i=2 to trunc(sqrt(n)) do 

 if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.

Var i,n,souoc:integer;

Begin

While n <= 1 do

Begin

Write('Nhap n = ');readln(n);

End;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.