Ẩn danh
Xem chi tiết
crazy
Xem chi tiết
crazy
Xem chi tiết
crazy
Xem chi tiết
crazy
Xem chi tiết
crazy
Xem chi tiết
crazy
Xem chi tiết

PROGRAM HOC24;
VAR i,n,k: integer;
    a: array[1..10000] of longint;
    f: text;
CONST fi='DOCAO.INP' ;
      fo='DOCAO.OUT' ;
function sum(x: longint): integer;  {Ham tinh tong cac chu so}
var t,k: integer;
begin
     t:=0;
     while (x<>0) do
           begin
                t:=t+(x mod 10);
                x:=x div 10;
           end;
     sum:=t;
end;
procedure ip;  {Nhap du lieu}
begin
     assign(f,fi);
     reset(f);
     readln(f,n);
     for i:=1 to n do
         begin
              read(f,a[i]);
         end;
     close(f);
end;
procedure out;  {Xu ly va xuat}
begin
     assign(f,fo);
     rewrite(f);
     for i:=1 to n do
         write(f,sum(a[i]),' ');
     close(f);
end;
BEGIN
     ip;
     out;
END.

Bình luận (0)
crazy
Xem chi tiết
Nguyễn Thị Cúc Hoa
29 tháng 3 lúc 10:44

Chương trình có thể như sau:

program SapXepLeChan;
const
  MAX = 100000;
type
  Mang = array[1..MAX] of Int64;
var
  a: Mang;
  n, i, j, temp: integer;
procedure SapXep(var a: Mang; n: integer);
var
  i, j, temp: integer;
begin
  // Sắp xếp số lẻ tăng dần
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (a[i] mod 2 <> 0) and (a[j] mod 2 <> 0) then
        if a[i] > a[j] then
        begin
          temp := a[i];
          a[i] := a[j];
          a[j] := temp;
        end;
  // Sắp xếp số chẵn giảm dần
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (a[i] mod 2 = 0) and (a[j] mod 2 = 0) then
        if a[i] < a[j] then
        begin
          temp := a[i];
          a[i] := a[j];
          a[j] := temp;
        end;
end;
begin
  // Nhập dữ liệu
  readln(n);
  for i := 1 to n do
    readln(a[i]);
  // Sắp xếp
  SapXep(a, n);
  // In ra màn hình
  for i := 1 to n do
    writeln(a[i]);
end.

Bình luận (0)
crazy
Xem chi tiết
Kiều Vũ Linh
29 tháng 3 lúc 9:43

var n,i:integer;

begin

repeat

write('Nhap n = ');readln(n);

if (n < 2) or n > 50 then write('Nhap sai, nhap lai so n = ');readln(n);

until (n >= 2) and (n <= 50);

for i:=2 to n do

if (i mod 3 = 0) and (i mod 7 = 0) then

begin

write(i);

halt;

end;

readln;

end.

Bình luận (1)
Đinh Quốc Bảo
Xem chi tiết
⚡ Green Hero ⚡
27 tháng 3 lúc 21:17

Khác vì nó ngắn gọn, cô đọng những ý chính làm người đọc dễ hiểu về ý nghĩa của văn bản.

Bình luận (0)
Vũ Đào Duy Hùng (haeng20...
27 tháng 3 lúc 21:19

$-$ Trang chiếu thường được sử dụng trong các bài thuyết trình hoặc hội thảo, trong khi tài liệu thông thường thường được sử dụng để cung cấp thông tin chi tiết hơn.
$-$ Người nghe chỉ có thể tiếp thu một lượng thông tin hạn chế trong một thời gian ngắn. Do đó, trang chiếu thường chỉ bao gồm các điểm chính hoặc tóm tắt, trong khi tài liệu thông thường có thể bao gồm nhiều thông tin chi tiết hơn.
$-$ Trang chiếu thường sử dụng nhiều hình ảnh, biểu đồ và đồ họa để thu hút sự chú ý và giúp người nghe dễ hiểu hơn. Trong khi đó, tài liệu thông thường thường chủ yếu bao gồm văn bản.
$-$ Trang chiếu thường ngắn gọn hơn so với tài liệu thông thường. Mỗi slide thường chỉ tập trung vào một ý chính, trong khi tài liệu thông thường có thể bao gồm nhiều ý chính và chi tiết hơn.

Bình luận (1)