Bài 1: Cho mảng một chiều C gồm X phần tử kiểu nguyên A. Nhập X và giá trị phần tử của mảng biết chúng sinh ngẫu nhiêu thuộc [0..299] B. Mảng C có bao nhiêu phần tử lẻ C. In ra màn hình mảng C sau khi bình phương từng giá trị trong C Bài 2: cho xâu S nhập từ bàn phím A. Đưa r

himekawa

2 năm trước

Bài 1: Cho mảng một chiều C gồm X phần tử kiểu nguyên A. Nhập X và giá trị phần tử của mảng biết chúng sinh ngẫu nhiêu thuộc [0..299] B. Mảng C có bao nhiêu phần tử lẻ C. In ra màn hình mảng C sau khi bình phương từng giá trị trong C Bài 2: cho xâu S nhập từ bàn phím A. Đưa ra màn hình xâu đảo của xâu S B. Xâu S có bao nhiêu kí tự chữ số C. Chèn xâu P bất kì vào xâu S tại vui trí bất kì của S

Loga Sinh Học lớp 12

0 lượt thích 35 xem

1 trả lời

Thích Trả lời

saolinh140292

Bài 1:
program Min;
var C:array[1..500] of longint;
X,i,dem:integer;
begin
randomize;
dem:=0;
writeln('Nhap X: '); readln(X);
for i:=1 to X do
begin
C[i]:=random(300);
write(C[i]:4);
if (C[i] mod 3 = 0) then inc(dem);
end;
writeln;
writeln('So phan tu le cua mang la: ',dem);
for i:=1 to X do
begin
C[i]:=sqr(C[i]);
write(C[i]);
write(' ')
end;
writeln;
readln
end.

Dòng code mình in đậm là mình thêm vào để kiểm tra thôi, bạn có thể xoá vì đề không yêu cầu.

Bài 2:

program Min;
uses crt;
var s,ss:string;
i,dem:integer;
begin
writeln('Nhap xau: '); readln(s);
writeln('Xau dao la: ');
for i:=length(s) downto 1 do write(s[i]);
for i:=1 to length(s) do
if ('0'<=s[i]) and ('9'>=s[i]) then inc(dem);
writeln;
writeln('So ki tu chu so trong xau la: ',dem);
readln
end.

Còn yêu cầu C mình vẫn chưa làm được a @@ Mong bạn thông cảm. Mình nghĩ sẽ có ai đó giúp được bạn, hihi ^^

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

longa1

Bài 1:

Program BTT;
Uses crt;
Var C: array[1..10000] of longint;
x,i,d: longint;
Begin
Clrscr;
Write('Nhap x: '); Readln(x);
d:=0;
Begin
Randomize;
For i:=1 to x do
Begin
C[i]:=Random(300);
If C[i] mod 2 = 1 then inc(d);
End;
End;

Write('Co ',d,' phan tu le');
Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var S,P: String;
i,d: longint;
Begin
Clrscr;
Write('Nhap xau S: '); Readln(S);
Write('Xau dao cua S: ');
For i:=length(S) downto 1 do
Write(S[i]);
Writeln;
d:=0;
For i:=1 to length(S) do
If S[i] in ['0'..'9'] then inc(d);
Writeln('Co ',d,' ki tu so');

Write('Nhap xau P: '); Readln(P);
Insert(P,S,length(S)+1);
Write('Sau khi chen sau P: ',S);
Readln
End.

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

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

Cho đoạn thơ sau và thực hiện yêu cầu bên dưới: " Ngửa mặt lên nhìn mặt có cái gì rưng rưng như là đồng là bể như là sông là rừng Trăng cứ tròn vành vạnh kể chi người vô tình ánh trăng im phăng phắc đủ cho ta giật mình" (Nguyễn Duy-Ánh Trăng) Em hãy viết một đoạn văn (10-12câu)cảm nhận nỗi niềm xúc động và suy nghĩ sâu sắc của nhà thơ thể hiện qua 2 khổ thơ trên ,trong đoạn văn có sử dụng câu ghép(gạch chân dưới câu ghép đó) (Mình cần gấp mai nộp cô ạk-không chép mạng nha)

thêm từ vào câu I/learn/phay/piano/my friends/the moment ............................................................................. I/stady/English/now ..................................

VÌ sao âm có thể truyền qua chất rắn chất lỏng chất khí mà không thể truyền qua môi trường chân không?hãy giải thích

Giúp mình với mình đang cần gấp!!!! C1) viết các Pt hóa học thực hiện chuỗi phản ứng (ghi rõ điều kiện xảy ra nếu có) C → CO2 → NaHCO3→ Na2CO3→ NaCl→NaNO3 C2) Viết phương trình phân tử và ion thu gọn của các phẳng ứng sau (nếu có) xảy ra trong dung dịch: a) K2CO3 + HCl b) NaOH + H3PO4 (1:1) c) Al + HNO3 đặc d) Pb(NO3)2 + H2S C3) Oxi hóa hoàn toàn 3,5 gam hợp chất hữu cơ X thu được 10,68g CO2 và 5,52g nước. Tính % về khối lượng các nguyên tố có trong X.

GDCD 8: bạn Hoàng không biết cụm từ tiếng anh tra tất cả trang đều không có định nhờ bạn huy đi hỏi cô anh văn Bạn huy nói không nên vì làm như vậy sẽ không có tính tự lập. Có đồng ý không, tại sao. Nếu là huy sẽ làm gì?

Giải giúp em phương trình này ạ!

Cho 1 vật sáng AB đặt trước gương phẳng hợp với gương phẳng 1 góc 44 độ.a,Xác định ảnh A'B' qua GP.b, tính góc tạo bởi vật AB với tia sáng A'B'.c,Vẽ đường đi qua tia sáng xuất phát từ A qua GP cho tia p/x qua B

Gíup mình bài nàyyy mọi người ơi Từ các số 0 1 2 3 4 5 6 7 có bao nhiêu chữ số tự nhiên có 4 chữ số khác nhau và bé hơn 4500

Giúp mình với ạ Cả 3 bài luôn ạ Thanks

Bài 2 (2,0 điểm) Tìm x a) 3x2 – 6x + 3 = 0 b) 2x(x + 3) – 4(x + 3) = 0 c) x2 + 7x + 10 = 0

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