Tin học

29: 

uses crt;

var n,i,j,kt:integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>1 then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do

if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

readln;

end.

var n, sum : integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     while n > 0 do

     begin

          sum := sum + n;

          n := n - 1;

     end;

     writeln('Tong la: ', sum);

end.

with open('songuyen.ipn', 'r') as f:

     x = [ ]

     for line in f:

          x.append(int(line))

n = int(input('Nhập n ( n < 150): '))

if n >= 150:

     print('n phải nhỏ hơn 150')

else:

     arr = [ ]

     total = 0

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

     for i in range(n):

          arr.append(int(input('Nhập phần tử thứ ' + str(i+1) + ': ')))

     # In dãy vừa nhập

     print('Dãy vừa nhập là: ', end='')

     for i in range(n):

          print(arr[i], end=' ')

     # Tính tổng các phần tử lẻ

     for i in range(n):

          if arr[i] % 2 != 0:

               total += arr[i]

     print('\nTổng các phần tử lẻ là:', total)

with open('songuyen.txt', 'r') as f:

     with open('ketqua.txt', 'w') as g:

          for line in f:

               numbers = line.split()

               for number in numbers:

                    if int(number) % 2 == 0:

                         g.write(number + '\n')