![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
hay viet chuong trimh dua ra ngoai man hinh dong thong bao "Chao cac ban! Ten toi la..." (sử dụng ngôn ngữ pascal):
program hello;
begin
writeln('Chào các bạn! Tên tôi là...');
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với
![](https://rs.olm.vn/images/avt/0.png?1311)
program vd1;
uses crt;
begin
clrscr;
writeln('chao cac ban toi la minh');
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
program so_tu_nhien_chan;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Cac so chan nho hon hoac bang ',n,' la: ');
for i:=2 to n do
if i mod 2=0 then write(i:4,' ;');
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Uses crt;
Var i,n,x:integer;
s:array[1..10000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
for i:= 1 to n do
begin
write('So thu ',i,' = ');
readln(s[i]);
End;
Writeln('Cac so chinh phuong co trong day:');
for i:= 1 to n do
Begin
x:=trunc(sqrt(s[i]));
if sqr(x) = s[i] then write(s[i],' ');
end;
Readln;
End.
![](https://rs.olm.vn/images/avt/0.png?1311)
begin
write ('TRUONG THCS ...');
write ('CHAO CAC BAN HOC SINH LOP 8');
readln ;
end.
uses crt;
var i:integer
BEGIN
for i:=1 to 100 do
writeln('chao cac ban);
readln;
END.
program bai1;
var i:longint;
begin
for i:=1 to n do
writeln('Chao cac ban');
readln
end.