Câu 1: cho xâu S chỉ chứa các chữ cái tiếng Anh viết đoạn chương trình để tính và thông báo ra màn hình số chữ cái tiếng Anh trong xâu S không phân biệt chữ hoa hay chữ thường Câu 2: Viết chương trình nhập vào số nguyên dương n n nhỏ hơn hoặc bằng 100 và dãy a gồm n số nguyên A1

hoanga2347

2 năm trước

Câu 1: cho xâu S chỉ chứa các chữ cái tiếng Anh viết đoạn chương trình để tính và thông báo ra màn hình số chữ cái tiếng Anh trong xâu S không phân biệt chữ hoa hay chữ thường Câu 2: Viết chương trình nhập vào số nguyên dương n n nhỏ hơn hoặc bằng 100 và dãy a gồm n số nguyên A1 A2......An tính và in lên màn hình tổng dãy số đó

Loga Sinh Học lớp 12

0 lượt thích 61 xem

1 trả lời

Thích Trả lời

damphuong26092004

Câu 1:

Program Word;
Uses crt;
Var S: String;
i, res: longint;

Begin
Clrscr;
Write('Nhap S: '); Readln(S);
res := 0;
For i:=1 to length(S) do
If Upcase(S[i]) in ['A' .. 'Z'] then inc(res);
Write('Co ',res,' chu cai tieng Anh');
Readln
End.

Câu 2:

Program Mang;
Uses crt;
Var A: array[1..10000] of longint;
n, i, res: longint;

Begin
Clrscr;
Write('Nhap n: '); Readln(n);

res := 0;

For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
res := res + A[i];
End;

Write('Tong = ',res);
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

lethitrangdailop94

`1)`

var st,s:string;

i,d,dem,kt,j,dem1:integer;

begin

clrscr;

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

writeln('Xau vua nhap la: ',s);

d:=length(s);

for i:=1 to d do

if s[i]=#32 then delete(s,i,1);

dem:=1;

st[1]:=s[1];

for i:=1 to d do

begin

kt:=0;

for j:=1 to dem do

if s[i]=st[j] then kt:=1;

if kt=0 then

begin

inc(dem);

st[dem]:=s[i];

end;

for i:=1 to dem do

begin

dem1:=0;

for j:=1 to d do

if st[i]=s[j] then inc(dem1);

writeln(st[i],' xuat hien ',dem1,' lan');

end;

readln;

end.

`2)`

var i,n: byte;

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

t: longint;

begin

write('Nhap N: '); readln(N);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong: ',t);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Một vật có khối lượng 200g được thả rơi tự do từ độ cao 45m số với mặt đất. Lấy g= 10m/s^2. Chọn mốc thế năng tại mặt đất a) Tính động năng, thế năng, cơ năng tại vị trí rơi ? b) tính vị trí của vật khi động năng bằng 2 lần thế năng? Vận tốc của vật khi động năng bằng 1/3 lần thế năng?

Bài quyền trẻ em. Lớp 7 Tình huống: bạn Hà là hàng xóm bạn nam. Bạn Nam thường xuyên thấy bạn Hà bị hành hạ, bóc lột. Theo em nếu em là Nam em có nhận xét gì về em sẽ làm gì ?

Viết văn. Cảm nhận của em về bài thơ Sang Thu của Hữu Thỉnh. Giúp mình với ạ. Đang cần gấp lắm ạ

Vừa gà vừa thỏ co tất cả 46 con , tổng số chân là 136 chân . Tính số gà và thỏ

Giúp mình với ạ Đang cần gấp ạ. Cả hai bài cũng được Không thì hộ câu 4 ạ.

Giúp mik với Chiều mik đi học rồi Ai nhanh giải đúng và chi tiết mik sẽ vote5🌟

Có mấy loại điện tích? Các vật tương tác với nhau như thế nào?

Cách tính góc giữa hai đường thẳng. VD: Góc giữa hai đường thẳng y=2x và y=-1/2x + 3

những nhà thám hiểm đầu tiên nha ko mạng mik hỏi để mai mik nộp cô

Tại sao trong dàn sỹ nó ghi vậy Sao làm văn lại ghi là :’Nguyên lí nhân nghĩa của Nguyễn trãi là yên dân và trừ bạo’ ai giải thích coi khó hiểu quá

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến