Question

viết chương trình nhập vào dãy số từ bàn phím.

a)in các số nguyên tố ra màn hình

b)tính tổng các phần tửchẵn bên trong màn hình

Answer 1

tuyetanhthu: var m: array[1..100] of integer; i，n: integer; write (‘nhap so luong phan tu: ‘);  readln (n); for i:=1 to n do write (‘nhap phan tu thu ‘，i，’: ‘);  readln (a[i]); writeln (‘cac so chan: ‘); for i:=1 to n do if a[i] mod 2=0 then write (a[i]:3); writeln (‘cac so le: ‘); for i:=1 to n do if a[i] mod 2<>0 then write (a[i]:3); tuyetanhthu: var m: array[1..100] of integer; i，n: integer; write (‘nhap so luong phan tu: ‘);  readln (n); for i:=1 to n do write (‘nhap phan tu thu ‘，i，’: ‘);  readln (a[i]); writeln (‘cac so chan: ‘); for i:=1 to n do if a[i] mod 2=0 then write (a[i]:3); writeln (‘cac so le: ‘); for i:=1 to n do if a[i] mod 2<>0 then write (a[i]:3); tuyetanhthu: var m: array[1..100] of integer; i，n: integer; write (‘nhap so luong phan tu: ‘);  readln (n); for i:=1 to n do write (‘nhap phan tu thu ‘，i，’: ‘);  readln (a[i]); writeln (‘cac so chan: ‘); for i:=1 to n do if a[i] mod 2=0 then write (a[i]:3); writeln (‘cac so le: ‘); for i:=1 to n do if a[i] mod 2<>0 then write (a[i]:3);