Question

Câu 1: Viết chương trình nhập vào từ bàn phím một số nguyên dương m (m>4). In ra màn hình các ước số của m. Câu 2: Viết chương trình: a. Nhập một dãy số nguyên n phần tử. b. Hiển thị dãy số vừa nhập. c. Tính và in ra màn hình tổng giá trị các phần tử dương và chẵn của dãy số.

Answer 1

Câu 1:

uses crt;

var m,i:integer;

begin

clrscr;

repeat

write('Nhap m='); readln(m);

until m>4;

for i:=1 to m do

if m mod i=0 then write(i:4);

readln;

end.

Câu 2:

uses crt;

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

i,n,t1,t2:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

t1:=0;

for i:=1 to n do

if a[i]>0 then t1:=t1+a[i];

writeln('Tong cac gia tri duong la: ',t1);

t2:=0;

for i:=1 to n do

if a[i] mod 2=0 then t2:=t2+a[i];

writeln('Tong cac so chan la: ',t2);

readln;

end.