Những câu hỏi liên quan
Nguyễn khánh thành
Xem chi tiết
Hong Trần
Xem chi tiết
Hong Trần
17 tháng 3 2021 lúc 18:04

Giúp mk với mai mk phải nộp r

Bình luận (0)
Minh Lệ
17 tháng 3 2021 lúc 18:36

Program HOC24;

var s: string;

i,d: byte;

begin

write('Nhap xau: '); readln(s);

d:=0;

for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;

write('Co ',d,' ki tu B trong xau');

readln

end.

Bình luận (1)
nguyễn linh
Xem chi tiết
Đặng Thị Anh Thư
Xem chi tiết
Tuyên Dương
Xem chi tiết
Phạm Gia Bình
Xem chi tiết
Anh Phạm
17 tháng 8 2021 lúc 9:54

uses crt;

var n,i,chan,tonchan:integer;

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

begin

write('nhap n '); readln(n);

for i:=1 to n do

begin

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

end;

writeln("in cac phan tu trong mang");

for i:=1 to n do

begin

writeln(a[i]);

end;

writeln("in cac phan tu chan");

chan:=0;

for i:=1 to n do

if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;

write('tong cac phan tu chan ',chan);

readln;

end.

 

Bình luận (3)
Phạm Gia Bình
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 8 2021 lúc 0:51

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

begin

readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

dem:=0;

t:=0;

for i:=1 to n do 

if a[i] mod 10=0 then 

begin

write(a[i]:4);

inc(dem);

t:=t+a[i];

end;

writeln;

writeln(dem);

writeln(t);

readln;

end.

Bình luận (0)
Nguyễn Nhật Lệ
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 4 2021 lúc 12:58

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do 

  if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);

writeln(dem);

readln;

end.

Bình luận (0)
Võ Thu Hằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2021 lúc 13:51

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=1000);

for i:=1 to n do 

begin

repeat

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

until abs(a[i])<=1000;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do 

  if a[i]=0 then inc(dem);

writeln('So phan tu bang 0 la: ',dem);

t:=0;

for i:=1 to n do 

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

writeln('Tong cac phan tu chan la: ',t);

readln;

end. 

Bình luận (0)