Cho tệp dulieu.dat chúa các giá trị a x của dãy số S=1+x(a+1)+x^2(a+2)+...+x^n(a+n) với x>=10000 tạo tệp kết quả.dat ghi các giá trị tổng s của dãy số với các giá trị a x tương ứng
1 câu trả lời
1)
program chia_het3;
uses crt;
var A:array[1..6] of integer;
i,d:byte;
begin
clrscr;
d:=0;
for i:=1 to 6 do
begin
write('A[',i,']= '); readln(A[i]);
if A[i] mod 3=0 then d:=d+1;
end;
write('Co ',d,' so chia het cho 3');
readln;
end.
2)
program kiem_tra;
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau S: '); readln(s);
if s[1]=s[length(s)] then write('Trung nhau')
else write('Khong trung nhau');
readln;
end.
