Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
29 tháng 1 2019 lúc 9:54
Hiện trên màn hình â ơ ư â ê ô đ
in đậm aw ow uw aa ee oo dd

Kết quả sai là aw -> ă

Quyen Duong
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:56

Program HOC24;

var r,s: real;

begin

write('Nhap ban kinh: '); readln(r);

writeln('Dien tich la: ',r*r*3.14:6:2);

write('Chu vi la: ',r*2*3.14:6:2);

readln

end.

The Anh Pham
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 17:24

uses crt;

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

m,n,dem,i:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

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

dem:=0;

for i:=1 to n do 

  if a[i]=m then inc(dem);

writeln('So phan tu bang ',m,' la: ',dem);

readln;

end.

Hạnh An
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:27

uses crt;

var s:string;

d,i:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

  if not(s[i] in ['0'..'9']) then write(s[i]);

readln;

end.

Nguyễn Huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 9:21

Cách 1: Có sử dụng chương trình con

uses crt;

var st:string;

{------------chuong-trinh-con-------------------}

function doi(st1:string):string;

var i,d:integer;

begin

d:=length(st1);

for i:=1 to d do 

  st1[i]:=upcase(st1[i]);

doi:=st1;

end;

{-------------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln(doi(st));

readln;

end.

Cách 2: Không sử dụng chương trình con

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  st[i]:=upcase(st[i]);

writeln(st);

readln;

end.

Hoàng hồ thiện
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2021 lúc 12:41

*Cách có sử dụng chương trình con:

uses crt;

var st:string;

{--------------chuong-trinh-con---------------}

function doixau(st:string):string;

var i,d:integer;

begin

   d:=length(st);

   for i:=1 to d do

     st[i]:=upcase(st[i]);

   doixau:=st;

end;

{-------------chuong-trinh-chinh---------------}

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln('Xau doi sang chu hoa la: ',doixau(st));

readln;

end.

*Cách không sử dụng chương trình con:

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 st[i]:=upcase(st[i]);

writeln('Xau sau khi doi la: ',st);

readln;

end.

Minh Lệ
Xem chi tiết

1 – Hình 3a; 2 – Hình 3b; 3 – Hình 3c;

4 – Hình 3d; 5 – Hình 3e

Huỳnh Tiến Thiên
Xem chi tiết
Nguyễn Thị Thanh Mai
Xem chi tiết
Phan Thị Chuyên
Xem chi tiết
Nguyễn Ngọc Thiện Nhân
2 tháng 3 2023 lúc 20:10