bn lm sao vậy ?

***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

Begin

Writeln('Hay nhap so thu ',i,' : '); Readln(a[i]);

end;

s:= 0

For i:= 1 to n do

begin

if a[i] mod 2 = 0 then m:= m+1 else n:= n+1;

S:= S+1;

end;

Writeln('Trong mang co ',S,' phan tu, trong do co ',m,' phan tu chan va ',n,' phan tu le');

Readln;

End.

không biết chương trình có sai chỗ nào không nữa!?

2/ program bt;

var N,i:integer;

begin

write('nhap so N'); readln(N);

writeln;

writeln (' bang nhan ', N);

writeln;

for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end

readln

end.

Mik chỉ bít làm bài 2 thôi!

program loc_so_le;

uses crt;

var N,y: longint;

begin

Writeln('Nhap so N '); Readln(N);

for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');

Readln;

end.

Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

uses crt;

var

i,tong:integer

begin

tong:=0;

for i:=1 to 100 do

tong:=tong+i;

write(tong);

readln;

end.

Bạn tham khảo code C++ nhé.

hơi muộn nhưng đây nhé (code C++ handmade =)) )
#include <bits/stdc++.h>

using namespace std;

int main()

{

int a, b, c, d;

cin >> a >> b >> c >> d;

cout << max(0, min(b,d) - max(a,c));

return 0;

}
dựa vào công thức toán học nha bn còn muốn giải thích thì lên chat gpt chứ đừng hỏi mình :V

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

• Trong toán học, cách vẽ tam giác ABC:
  • Vẽ ba điểm không thẳng hàng A, B, C
  • Dùng thước nối ba đỉnh lại với nhau
• Các bước vẽ tam giác ABC bằng phần mềm GeoGebra:
  • Sử dụng công cụ tạo điểm mới để tạo ba điểm A, B, C.
  • Sử dụng công cụ đoạn thẳng vẽ đoạn thẳng AB, BC, CA.

Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại

Bạn hãy vào phần thông tin tài khoản, sau đó chọn đổi ảnh đại diện, rồi nháy chọn ảnh mà bạn muốn đặt làm ảnh đại diện chọn open để tải lên, chờ trong giây lát ảnh sẽ được đổi, và pahir chờ khoảng 1 đến 2 tiếng để thay đổi hoàn toàn ảnh đại diện cho bạn đấy.