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.

24 tháng 10 2018

begin

write('xin chao cac ban');

write('toi la free pascal');

readln;

end.

25 tháng 10 2018

cảm ơn bạn

21 tháng 3 2022

program vd1;

uses crt;

begin

clrscr;

writeln('chao cac ban toi la minh');

readln;

end.

17 tháng 11 2017

program XinChao;

uses crt;

begin

clrscr;

writeln('Xin chao cac ban!');

writeln('Toi ten la Huyen Minh Lam Nguyet ');

writeln('Toi hoc lop 9');

readln;

end.

19 tháng 11 2017

program CT_ten_lop;

uses crt;

begin

clrscr;

writeln ('Chao cac ban!');

writeln ('Toi ten la: ...');

writeln ('Lop:...');

readln;

end.

6 tháng 10 2021

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

22 tháng 10 2021

sài lệnh writeln nhé bạn

 

25 tháng 9 2021

begin 

write ('TRUONG THCS ...');

write ('CHAO CAC BAN HOC SINH LOP 8');

readln ;

end.

 

25 tháng 9 2021

Cảm ơn bn nhiều

6 tháng 12 2021

Program CT_dongian;

uses crt;

begin

clrsrc; 

writeln ( ' Chao cac ban ' );

readln

end.

writeln('chao cac ban');

readln;

8 tháng 5 2023

begin

write('Chao cac ban! Ten toi la...');

Readln

End.

8 tháng 5 2023

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.

uses crt;

var i,n:integer;

begin

clrscr;

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

for i:=1 to n do

  writeln(i,'. XIN CHAO');

readln;

end.

24 tháng 5 2022

Program HOC24;

var i: byte;

begin

for i:=1 to 20 do writeln('Toi yeu Viet Nam');

readln

end.

25 tháng 5 2022

var i: integer;

begin

for i:=1 to 20 do writeln('Toi yeu Viet Nam');

readln

end.