program bt;uses crt; var i,n,s:integer; begin clrscr; writeln(' Nhập n : ' );Readln(n); S:=0; For i:=1 to n do if (i mod 2) = 0 then s:=s+sqr(i);Writeln('Tổng S: ',S);readln; end. Để lọc dữ liệu em chọn nút lệnh (Tin học - Lớp 7) 3 trả lời Viết chương trình nhập vào n và in ra màn hình (Tin học - Lớp 8) 1 trả lời Biết được một số tác hại khi sử dụng internet (Tin học - Lớp 6) 2 trả lời Với công việc nào thì dùng Menu FORMAT (Tin học - Lớp 8) 2 trả lời uses crt;var n,i,s:longint;begin clrscr; write('Nhap n (n>0): '); readln(n); for i:=1 to n do if i mod 2=0 then inc(s,i); writeln('Tong: ',s); readln; end.
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
Viết chương trình tính tổng các giá trị chẵn trong phạm vi từ 1 đến N (Số nguyên dương N được nhập vào từ bàn phím) Các câu hỏi tương tự
Viết chương trình tính tổng các giá trị lẻ trong phạm vi từ 1 đến N (Số nguyên dương N được nhập vào từ bàn phím)
Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N (Số nguyên dương N được nhập vào từ bàn phím)
Viết chương trình tính tổng các giá trị là bội của 3 trong phạm vi từ 1 đến N (Số nguyên dương N được nhập vào từ bàn phím)
|
