[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
mong mn giúp ạ.
mình thấy đúng rồi mà nhỉ . đây là bạn nhập trên điện thoại đúng ko? thử trên pascal xem
Mình không có máy tính, cũng không có ai để mượn nên mới sử dụng đt. Mình cũng nộp cô rồi nên đợi kết quả luôn thôi, cảm ơn nha.
* Thứ I là : Viết Pascal trên đt được á
Bất ngờ 
Phần A: array[1..5] of integer là chỉ tạo 5 ô nhớ biến A là A[1], A[2], A[3], A[4], A[5] nhé bạn.View attachment 153605
Đây là bài làm của mình, đề là “nhập n số nguyên từ bàn phím in ra tất cả các số lẻ”. Mình mong mn xem và sửa giúp mình với ạ, nếu có sai mong mn giải hộ mình với. Với bài làm của mình như trên thì lại ra như này
View attachment 153607
Mình đàn rất hoang mang
uses crt;
var a: integer; ans: char;
begin
clrscr;
repeat
write('Nhap so can kiem tra:'); readln(a);
if a mod 2 = 1 then writeln(a,' la so le') else writeln(a, ' la so chan');
writeln('Ban co muon tiep tuc? Nhap "y" la dong y, "n" la khong dong y');
write('Nhap y/n:'); readln(ans);
until ans='n';
readln
end.Mình vào học tuần trước nên có nhập thử chương trình trên của mình vào máy tính trường, tuy nhiên kết quả cuối cùng lại không đầy đủ (VD: mình nhập 3 số lẻ: 1,3,5 thì nó chỉ hiện lên là 5 thôi). Đến khi mình nhập thêm 1 lệnh for trước dòng If thì kết quả mới ra đầy đủ.View attachment 153605
Đây là bài làm của mình, đề là “nhập n số nguyên từ bàn phím in ra tất cả các số lẻ”. Mình mong mn xem và sửa giúp mình với ạ, nếu có sai mong mn giải hộ mình với. Với bài làm của mình như trên thì lại ra như này
View attachment 153607
Mình đàn rất hoang mang
Đúng rồi đó bạn, trước lệnh if a[ i ] mod 2=1... thì phải thêm for i:=1 to n do mới đúng đề bài