[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.
)
Bạn nào khá về môn này thì giúp mình với
Mình đang mắc phần b ( nhưng phần a cũng chưa biết đúng hay sai
View attachment 154611
Var
A:array[1..100] of integer;
Sc,sl,snt,n,i,j:integer;
Kt:boolean;
Begin
Readln(n);sc:=0,sl:=0;snt:=0;
For i:=1 to n do
Begin
Readln(a[i]);
If a[i] mod 2=0 then sc:=sc+1 else sl:=sl+1;
End;
Writeln('so le:',sl,',so chan:',sc);
For i:=1 to n do
If a[i]>1 then
Begin
Kt:=true
For j:=2 to a[i]-1 do if a[i] mod j=0 then kt:=false;
If kt=true then snt:=snt +1;
End;
Writeln('so luong snt la:',snt);
Readln
End.