W
Giải thử nhé:
Viết chương trình nhập vào 1 dãy số nguyên n số, sắp xếp và in ra dãy tăng dần.
Var i,j,n,tam:integer;
a:array[1..1000] of integer;
Begin
Write('Day co bao nhieu so:');
Readln(n);
For i :=1 to n do Read(a[i]);
For i: =1 to n-1 do
For j := i+1 to n do
If a[i]>a[j] then
Begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
For i : =1 to n do Write(a[i]:6);
readln;
end.
cac anh chi giai giup em bai nay voi
1>viết chương trình in ra màn hình các số nguyên tư 1 đến 100 sao cho cứ 10 số thì xuống dòng.
2>viết chương trình in ra màn hình tất cả các số nguyên tố tư 2 đến n,với n đươc nhập tư bàn phim.
3>số hoàn thiện la sô tự nhiên có tổng các ươc của nó(không kể chinhd nó)bằng chính nó.viết chương trình kiểm tra xem một số được nhập vào từ bàn phím có phải là số hoàn thiện hay không.vd 6,28 là số hoàn thiện.
Ai viết hộ tớ chương trình pascal này nhé
a)Cho tọa độ 3 điểm,kiểm tra xem có phải 3 điểm đó hợp thành tam giác ko?
b)nếu là tam giác thì có phải là tam giác vuông ko?
c)Tính diện tích tam giác đó
Bạn tự chứng minh CT này dựa vào CT từ 1 điểm đến 1 đường thẳng , trong bài này CT này là phức tạp nhưng với bài có số liêu lớn thì nó thật sự có hiệu quả :">, không cần thiết phải tính độ dài 3 cạnh