HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
không biết chương trình có sai chỗ nào không nữa!?
***Bài một và bài 3 mình biết làm con bài hai mình chịu thua!
Program Abc_2003;
Uses crt;
Var: i,n,S,d,m,n: integer;
A: array[1..1000] of integer;
Begin
Clrscr;
Write('Moi ban nhap so phan tu cua mang: '); Readln(n);
For i:= 1 to n do
Writeln('Hay nhap so thu ',i,' : '); Readln(a[i]);
end;
s:= 0
begin
if a[i] mod 2 = 0 then m:= m+1 else n:= n+1;
S:= S+1;
Writeln('Trong mang co ',S,' phan tu, trong do co ',m,' phan tu chan va ',n,' phan tu le');
Readln;
End.
tìm n để X=1+3+5+...+n có giá trị nhỏ nhất lớn hơn m (m nhập từ bàn phím)
Do thái độ lo sợ, cầu hòa, nhu nhược của triều đình Huế.
Cần hợp thời, hợp lý, thiết thực, giải quyết được những vấn đề cơ bản của thời đại.