giúp em với ạ! em cảm ơn ! Bài 1: Viết chương trình nhập vào số nguyên N. Tính tổng các số lẻ từ 1 đến N. Bài 2: Viết chương trình nhập vào số nguyên N. Tính tổng các số chia hết cho 3 và 5 trong đoạn từ 1 đến N. Bài 3: Viết chương trình nhập vào số nguyên N. Đếm xem có bao nhiêu số chẵn trong đoạn từ 1 đến N

Bài 1:
program bai1
var s,i,n:longint
begin
write('N= ')
readln(n)
s:=0
for i:=1 to n do
if i mod 2<>0 then s:=s+i
write('s= ',s)
readln
end.

Bài 2:
Uses crt;

Var s, i, n: longint;

Begin

Clrscr;
Write(‘Nhap n = ‘); readln(n);
s:=0;
For i:=1 to n do if (i mod 3 = 0) and (i mod 5 = 0) then inc(s,i);
Writeln(‘Tong = ‘,s:4:2);

Readln

End.

Bài 3:

Var i,n,k:integer;

Begin

Write (' nhap n : ');

Readln(n);

For i:= 1 to n do If i mod 2=0 then k:=k+1;

Writeln (' tong so chan la : ',k);

Readln;

end.
Gửi bạn

#baonhi110

bạn tham khảo dưới hình nhé.

bài 1(hình 1)

bài 2(hình 2)

bài 3(hình 3)