Câu 1:
Dùng for..do
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=1 to 100 do
if i mod 2=0 then a:=a+i;
writeln(a);
readln;
end.
Dùng While...do
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
i:=1;
while i<=100 do
begin
if i mod 2=0 then a:=a+i;
inc(i);
end;
writeln(a);
readln;
end.
Viết chương trình in ra màn hình tất cả các ước của n. ( với n nhập từ bàn phím)
Bn nào bik thì chỉ cho mik với nha! mik cảm ơn mý bn nhìu... ( mik cần gấp lắm!)
Viết CT nhập điểm Kiểm tra học kì môn Tin cho N học sinh và in CT với N và điểm kiểm tra nhập từ bàn phím (sd biến mảng)
Giusp mik với ạ, mk đang cần gaapsppppp lamwsmmmm ạ!!!
Viết chương trình sử dụng câu lệnh lặp để tính tích liên tục của N số tự nhiên.
giúp mik nhé mai mik thi học kì 1 rồi. cần gấp lắm ạ
Sắp thu bài r, giúp mik với mn !!!!
nhập vào 2 số từ bàn phím kiểm tra xem tích 2 số đó có chia hết cho 5 hoặc 8 hay không?
giúp mik vs nha
Viết c trình
a) nhập từ bàn phím một số nguyên n biểu diễn sĩ số của một lớp 1<=n<=45. Khi người sử dụng nhập số nguyên ngoài khoảng này, c trình sẽ yêu cầu nhập lại và chỉ kết thúc khi số hợp lệ được nhập.
b) nhập số thực x biểu diễn điểm của học sinh 0<=x<=10 làm tròn đến 1/4.
Mik đang cần gấp mn giúp mik nhé!
Cho số tự nhiên n Hãy nhập trình để tính các tổng 1 + 1/2! + 1/3! + ....+1/n!?
Mik đag cần gấp.......!
1.Em hãy viết chương trình tính tích các số từ 5 đến 50.
giúp mik với
Viết chương trình tính tổng sau đây, giúp mình với ạ, mik cảm ưn, yêu mọi ngườiii
