giúp em giải 2 bài dưới với ạ. giải chi tiết với ạ cho tệp songuyen.inp chứa các số nguyên. hãy đếm có bao nhiêu số chia hết cho 3 và tính tổng của chúng . kết quả lưu vào tệp songuyen.out gồm 2 dòng : dòng đầu là các số nguyên chia hết cho 3 dòng tiếp là số lượng chia hết cho 3 và tổng của chúng cũng dạng bài trên thay số 3 bằng số 5
1 câu trả lời
uses crt;
var a:array[1..1000]of byte;
n,dem,tong,i:integer;
begin
clrscr;
write('Nhap vao so phan tu cua day:');readln(n);
for i:=1 to n do
begin
write('Nhap vo phan tu thu',i,'cua day:');readln(a[i]);
end;
dem:=1;
tong:=1;
write('Cac so chia het cho 3 la: ');
for i:=i to n do if a[i] mod 3=0 then
begin
tong :=tong + a[i];
dem:=dem+1;
write(a[i],',');
end;
writeln('so cac so chia het cho 3 la ',dem);
write('tong cac so chia het cho 3 la ',tong);
readln
end.
chỉ cần thay số 3 thành số 5 là đc nhé
nhớ cho mik vote 5 sao và trả lời hay nhất nhé
Câu hỏi trong lớp
Xem thêm
