Những câu hỏi liên quan
tan nhat
Xem chi tiết
Nguyễn Hoàng Duy
11 tháng 5 2023 lúc 21:39

program InChuCai;
var ch: char;
begin
  for ch := 'a' to 'z' do
    writeln(ch);
  readln;
end.

 

Bình luận (0)
Lữ Thị Như Quỳnh
Xem chi tiết
Minh Lệ
22 tháng 3 2023 lúc 13:25

Bạn bổ sung thêm đề nhé

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
25 tháng 10 2018 lúc 1:54

Đáp án đúng : A

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
4 tháng 9 2017 lúc 2:04

Đáp án đúng : B

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
8 tháng 4 2017 lúc 11:50

Đáp án đúng : C

Bình luận (0)
Nguyễn Thị Ánh Ngọc
Xem chi tiết
Phúc Mai
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2021 lúc 23:18

Câu 1: B

Câu 2: A

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
30 tháng 1 2019 lúc 16:30

Đáp án đúng : C

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
12 tháng 7 2017 lúc 4:31

Đáp án đúng : D

Bình luận (0)
Kim Xuyến
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 4 2021 lúc 22:25

2:

uses crt;

var a:array[1..100]of integer;

i,n,dem,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

b[1]:=a[1];

dem:=1;

for i:=1 to n do 

  begin

kt:=0;

for j:=1 to dem do 

 if b[j]=a[i] then kt:=1;

if kt=0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Bình luận (0)