Bài 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, đếm và in ra kết quả trong dãy có bao nhiêu số chẵn. Bài 2: Viết chương trình nhập vào một xâu ký tự in ra màn hình độ dài của xâu.
Những câu hỏi liên quan
Bài 1: Viết chương trình nhập vào số nguyên dương n (0<n<100) và khởi tạo dãy gồm n số nguyên Ai (-32000<Ai<32000). Đếm và in ra màn hình các số dương có 3 chữ số?Bài 2: Viết chương trình nhập vào một xâu kí tự, đếm xem trong xâu có bao nhiêu kí tự chữ số 1?
Xem chi tiết
8 tháng 5 2023 lúc 20:16
Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150).
a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống.
b. Tính tổng các phần tử chẵn và in kết quả ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua day A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
writeln('Day so vua nhap la:');
for i := 1 to N do
write(A[i], ' ');
writeln;
sum := 0;
for i := 1 to N do
if A[i] mod 2 = 0 then
sum := sum + A[i];
writeln('Tong cac phan tu chan trong day la: ', sum);
readln;
end.
Đúng 2
Bình luận (1)
Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150).
a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống.
b. Tính tổng các phần tử chẵn và in kết quả ra màn hình.
1 Hãy viết chương trình nhập vào một dãy số ,in ra màn hình các số chẵn có trong dãy số ,với độ dài dãy số được nhập vào từ bàn phím 2 Hãy viết chương trình nhập vào một dãy số , in ra màn hình trung bình cộng của các phần tử trong dãy số với độ dài...
Xem chi tiết
Bạn ơi giúp mình với chiều nay mình thi rồi
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
1.Viết chương trình nhập một xâu ký tự gồm các ký tự từ “ a” đến “ z” và “A” đến “Z”. In ra màn in xâu đã nhập theo dạng chữ viết thường.
2.Viết chương trình đã nhập vào một số nguyên.Chuyển số đã nhập thành xâu số nguyên
Viết chương trình nhập vào một xâu S có độ dài không quá 100 ký tự từ bàn phím. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. Thông báo kết quả ra màn hình. Xuất xâu đã nhập
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
Đúng 2
Bình luận (0)
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào một dãy số nguyên n phần tử, n nhập từ bàn phím.
a) In ra màn hình dãy số vừa nhập xếp theo thứ tự tăng dần.
b) In ra màn hình các số nguyên tố trong dãy số vừa nhập và đếm xem đã nhập vào bao nhiêu số nguyên tố.
Viết chương trình nhập từ bàn phím một xâu kí tự st1 có độ dài 50 1- đếm số kí tự “N” và “n” trong xâu st1 2- đưa ra màn hình xâu st2 gồm tất cả kí tự in hoa trong xâu st1 3-đưa ra màn hình xâu st1 viết theo chiều ngược lại
1 Viết chương trình nhập mạng một chiều n tính và in ra màn hình tổng số lẻ 2 viết chương trình nhập vào một xâu từ văn phím viết chương trình chuẩn hóa xâu bằng cách xóa các ký tự trống ở đâu xâu và cuối xâu 3 Viết các thao tác và lần tương ứng cần thực hiện để đọc một giá trị từ tệp ‘ DL.TXT ‘ Ghi giá trị vừa đọc vào tệp ‘KQ.TXT’ Giúp mình với ạ
1:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
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];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
3:
const fi='dl.txt'
fo='kq.txt'
var f1,f2:text;
a:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a);
writeln(f2,a);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
2:
uses crt;
var st:string;
d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[d]=#32 do
begin
delete(st,d,1);
d:=length(st);
end;
writeln(st);
readln;
end.
Đúng 0
Bình luận (0)