Bài 1: Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n(với n được nhập)
Yêu cầu : Sử dụng vòng lặp với số lần chua biết trước
Mô tả thuật toán
Viết chương trình
Bài 2: Nhập n bất kì sau đó in ra tổng các chữ số của n
Yêu cầu: Sử dụng vòng lặp với số lần chưa biết trước
Mô tả thuật toán
Viết chương trình
MN ƠI GIÚP MK VS MAI MK KIỂM TRA RỒI HUHUHU
var n,i:integer;
begin
write(‘nhap so n: ‘);readln(n);
for i :=1 to n do
begin
if n mod 2 <> 0 then
begin
write(i);
end;
end.
Mô tả: bạn sẽ cho duyệt chạy từ 1-> n số nào không chia hết cho 2 có nghĩa là số lẻ và bạn chỉ cần in ra.
2)
var n,s,i:integer;
begin
write(‘nhap so n: ‘);readln(n);
s:=0;
for i :=1 to n do
begin
s:= s+i;
write(s);
end;
end.
Mô tả bạn cho chạy từ 1->n qua phần từ i dùng biến s để cộng tất cả những phần tử này lại và in s là ra.