Câu 1 Viết chương trình tính tổng các số tự nhiên liên tiếp nhỏ nhất lớn hơn 10?
Câu 2 nhập vào mãng gồm N số nguyên:
a) in ra màn hình các số chẵn có trong mãng
b) tính tổng các số lẽ có trong mãng
Câu 1 Viết chương trình tính tổng các số tự nhiên liên tiếp nhỏ nhất lớn hơn 10?
Câu 2 nhập vào mãng gồm N số nguyên:
a) in ra màn hình các số chẵn có trong mãng
b) tính tổng các số lẽ có trong mãng
program hotrotinhoc;
var s,n,i : integer;
begin
n:=0; s:=0;
while s<=10 do
begin
n:=n+1;
s:=s+n;
end;
write(s);
readln
end.
câu 1
program tinhtong;
var i,t:integer;
begin
t:=0;
for i:=1 to 10 do
t:=t+i;
writeln (‘tong =’,t);
readln;
end.