Help me 2 tui cần lắm . Câu đó có trong bài 15p với lại giữa kì nên tui cần soạn

Nhưng mà tại sao bạn ????

program Tong_phan_so;

     n, i, x : Integer;

     tong, tong_phan_so, tong_phan_so_chan, tong_phan_so_le : Real;

begin

     Write('Nhap n so: '); Readln(n);

     tong := 0;

     tong_phan_so := 0;

     tong_phan_so_chan := 0;

     tong_phan_so_le := 0;

     for i := 1 to n do

     begin

          Write('Nhap so thu ', i, ': '); Readln(x);

          tong := tong + x;

          tong_phan_so := tong_phan_so + x/100;

          if x mod 2 = 0 then

               tong_phan_so_chan := tong_phan_so_chan + x/100

          else

               tong_phan_so_le := tong_phan_so_le + x/100;

     end;

     Writeln('Tong cua ', n, ' so la: ', tong:0:0);

     Writeln('Tong phan so cua ', n, ' so la: ', tong_phan_so:0:2);

     Writeln('Tong phan so chan cua ', n, ' so la: ',tong_phan_so_chan:0:2);

     Writeln('Tong phan so le cua ', n, ' so la: ', tong_phan_so_le:0:2);

     Writeln('Gia tri trung binh cua ', n, ' so la: ',tong_phan_so/n:0:2);

end.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

for (int i=1; i<=n; i++)

if (i%6==0) t+=i;

cout<<t;

return 0;

}

Program HOC24;

var i,n: integer;

S: longint;

begin

write('Nhap N: '); readln(n);

i:=2; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

program TongCacSoChan;
var
    n, s, i: integer;
begin
    write('Nhap n: ');
    readln(n);
    s := 0;
    i := 2;
    while i <= n do
    begin
        s := s + i;
        i := i + 2;
    end;
    writeln('Tong cac so chan la: ', s);
    readln;
end.

Program HOC24;

var i,n,d: integer;

a: array[1..1000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i] mod 2=0 then d:=d+1;

write('Co ',d,' so chan' );

readln

end.

Uses crt;

var s,n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(n mod 2<>0) then s:=s+i;

writeln(s);

readln;

end.

 bạn có thể giải thik cho mik vì sao lại là for i:=1 to n do if(n mod 2<>0) then s:=s+i đc ko

cảm ơn bạn nhìu

Program HOC24;

var m,n: integer;

begin

write('Nhap N: '); readln(n);

write('Nhap M: '); readln(m);

write('Ket qua la: ',m+n);

readln

end.

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau: '); readln(s);

for i:=1 to length(s) do if (s[i]<>#32) and (s[i] in 'A'..'z') then 

begin

upcase(s[i]); write(s[i]);

end;

readln

end.

thiếu array kìa dmmm mẹ m béoooo

Giúp mk với mai mk kiểm tra r

Program HOC24;

var n: integer;

s: real;

begin

n:=1; s:=0;

while s<=3.15 do

begin

s:=s+n;

n:=n+2;

end;

write('S= ',s:5:2);

readln

end.

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)