Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n-1 do

If (i mod 2 = 0) and (i mod 3 = 0) then

s:=s + i;

Write('Tong la ',s);

Readln;

End.

Program HOC24;

var i,n: integer;

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

t: longint;

f1,f2: text;

const fi='DATA1.TXT';

fo='KQ1.TXT';

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,n);

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

t:=0;

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

writeln(f2,t);

for i:=1 to n do if a[i] mod 5=0 then write(f2,a[i],' ');

close(f1); close(f2);

end.

Đề yêu cầu gì vậy bạn?

ghi dữ liệu là các thông tin  vào tệp KQ1.TXT

Program HOC24;

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

i,n: integer;

begin

write('Nhap so phan tu trong mang: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

for i:=1 to n do if a[i]<0 then a[i]:=0;

write('Mang sau khi thay the la: ');

for i:=1 to n do write(a[i],' ');

readln

end.

program XoaPhanTuAm;

     arr: array[1..100] of integer;

     n, i, j: integer;

     write('Nhap so phan tu: ');

     readln(n); 

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(arr[i]);

     end;  

     j := 0;

     for i := 1 to n do

     begin

          if arr[i] >= 0 then

          begin

               j := j + 1;

               arr[j] := arr[i];

          end;

     end;

     n := j;

     writeln('Mang sau khi xoa phan tu am:');

     for i := 1 to n do

     begin

          write(arr[i], ' ');

     end;

     readln;

end.

N = int(input("Nhập số lượng phần tử của dãy N (>50): "))

while N <= 50:

         N = int(input("Nhập lại số lượng phần tử của dãy N (>50): "))

# Nhập vào dãy số 

danh_sach = []

for i in range(N):

         danh_sach.append(int(input("Nhập số thứ %d: " % (i+1))))

# In ra dãy số vừa nhập

print("Dãy số vừa nhập:")

for i in danh_sach:

         print(i, end=' ')

# Nhập vào số nguyên x

x = int(input("nNhập vào số nguyên x: "))

# In ra các số chia hết cho x 

print("Các số chia hết cho x là:")

for i in danh_sach:

         if i % x == 0:

                  print(i, end=' ')

Program HOC24;

var d,i,n: integer;

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

begin

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

for i:=1 to n do 

begin

write('Nhap A[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do d:=d+1;

write('So luong cac phan tu trong mang la: ',d);

readln

end.

* Thực chất số lượng phần tử trong mảng là N ban đầu nhập rồi, bạn kiểm tra lại xem đề thiếu không nhé

xau = input("Nhập vào một xâu bất kì: ")

xau_moi = xau.replace("choi", "hoc")

print("Xâu mới sau khi thay thế là:", xau_moi)

Program HOC24;

var s: string;

d: byte;

begin

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

while pos('choi',s)<>0 do

begin

d:=pos('choi',s);

delete(s,d,4);

insert('hoc',s,d);

end;

write('Xau sau khi thay la: ',s);

readln

end.

#include <bits/stdc++.h>

using namespace std;

int B[100],i,n,t=0,s=1;

int main()

{

cin>>n;

for (int i=1; i<=n; i++) cin>>B[i];

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

{

if (i%2==0) s*=A[i];

else t+=A[i];

}

cout<<t<<" "<<s;

}