Câu 1: viết chương trình nhập một xâu từ bàn phím. Đưa ra màn hình xâu thu được từ nó bởi việc loại bỏ các dấu cách(nếu có). Câu 2: viết chương trình nhập một dãy nguyên A có N phần tử( N<=100). Tính và in ra màn hình tổng các số chia hết cho 3 trong dãy A. Mọi người giúp mình với, mình cần gấp, sáng mai mình thi rồi😢😢
1 câu trả lời
Câu 1:
program bo_dau_cach;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(S);
i:=1;
while i<=length(s) do
if s[i]=' ' then delete(s,i,1) else i:=i+1;
write('Xau sau khi xoa la: ',s);
readln;
end.
Câu 2:
program tong_3;
uses crt;
var A:array[1..100] of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
if A[i] mod 3=0 then t:=t+A[i];
end;
write('Tong cac so chia het cho 3 trong day la: ',t);
readln;
end.
