Question

Câu1: sử dùng nnlt pascal, viết ct nhập vào từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của chữ "a" trong xâu S

Câu2: sử dụng nnlt pascal, viết ct thực hiện các công việc sau:

a, Nhập vào dãy A gồm N số nguyên dương (N<100, các số nguyên dương nhỏ hơn 3000)

b, tính tích các phần tử của mảng là ước của 1 số nguyên dương K cho trước

Answer 1

b1:

user crt;

var s:string;

d,i:byte;

begin

clrscr;

writeln('Nhap xau S: ');readln(s);

for i:=1 to length(s) do

if s[i] = 'a' then inc(d);

writeln('Chu a xuat hien ',d,' lan');

readln;

end.

Answer 2

Câu 1:

uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]='a' then inc(dem);
writeln('so lan xuat hien cua chu a trong xau ',s,' la: ',dem);
readln;
end.

Câu 2:

uses crt;
var a:array[1..99]of integer;
n,i,k:integer;
s:longint;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if n>=100 then writeln('nhap lai');
until n<100;
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
if a[i]>=3000 then writeln('nhap lai');
until a[i]<3000;
end;
write('nhap so k:'); readln(k);
s:=1;
for i:=1 to n do
if k mod a[i]=0 then s:=s*a[i];
writeln('tich cac uoc cua ',k,' trong day la: ',s);
readln;
end.