Question

giúp em với : viết chương trình nhập vào số N và in ra màn hình tổng các số lẻ từ 1 đến N

Gợi ý: sử dụng phép toán mod , câu lệnh điều khiển

lớp8 tin học ạ

Answer 1

prrogram bai1;

var n,i:longint;

begin

write('N= ');

readln(n);

for i:=1 to n do

if i mod 2=1 then write(i, ');

readln

end.

Answer 2

program bai1;

var s,i,n:longint;

begin

repeat

write('N= ');

readln(n);

until n>0;

s:=0;

for i:=1 to n do

ì i mod 2=1 then s:=s+i;

write('Tong cac so s le la ',s);

redln

end.

Answer 3

Program Baitap;
Uses Crt;
Var i, Tong: Longint;
Begin
Clrscr;
Writeln('Nhap so N='); Readln(N);
Tong:=0;
For i := 1 to N do
If i mod 2 = 0 then;
Tong:=Tong+i;
Writeln('Ket qua',Tong);
Readln;
End.