K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

writeln('chao cac ban');

readln;

16 tháng 11 2021

a: int m;

double q;

10 tháng 5 2021

Program lap; Var i: integer; Begin For i:=1 to 5 do write('a'); Readln End.

10 tháng 5 2021

Program lap;

Var i: integer;

Begin

For i:=1 to 5 do write('A');

Readln

End.

21 tháng 5 2021

REPEAT 4 [ FD 100 RT 90 ]
 

27 tháng 5 2021

repeat 2 [ fd 100 rt 90 fd 50 rt 90 ] 

16 tháng 4 2023

program ChuyenXauSangChuThuong;
var
  str: string; 
  i: integer; 

begin
  write('Nhap mot xau ky tu: ');
  readln(str); 
  for i := 1 to Length(str) do
    str[i] := LowerCase(str[i]); 
  writeln('Xau ky tu chuyen thanh chu thuong la: ', str); 
end.