Bài 12: Kiểu xâu

thành nguyễn

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

Thiên Hà
14 tháng 4 2020 lúc 19:15

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.

Bình luận (0)
Nguyễn Lê Phước Thịnh
14 tháng 4 2020 lúc 19:43

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.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn khánh thành
Xem chi tiết
Ngô Thành Chung
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Thanh Nhi Phạm
Xem chi tiết
Anh Thư
Xem chi tiết
Ji Han
Xem chi tiết
Phương Vũ Hà
Xem chi tiết