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.
begin
write ('TRUONG THCS ...');
write ('CHAO CAC BAN HOC SINH LOP 8');
readln ;
end.
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.
begin
write('xin chao cac ban');
write('toi la free pascal');
readln;
end.
program vd1;
uses crt;
begin
clrscr;
writeln('chao cac ban toi la minh');
readln;
end.
program 06;
Uses crt;
Var
T:real
i;n:integer;
Begin
clrscr;
write('n=1');Readln(n);
T:=06
for i:=1 to n do
T:=\frac{1}{1}.2+\frac{1}{2}.5+\frac{1}{3}.8+\frac{1}{4}.11
write('T=06'; T);
readln;
end.
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
Program thu-nghiem
uses crt;
write (`Xin chao cac ban`);
write (`Hay hoc hanh cham chi`);
readln
end
Sửa:
Program thunghiem;
uses crt;
writeln (`Xin chao cac ban`);
writeln (`Hay hoc hanh cham chi`);
readln;
end.
uses crt;
begin
clrscr;
writeln('DON XIN PHEP NGHI HOC');
writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');
writeln('Toi ten la:');
writeln('Phu huynh cua em:');
writeln('Hoc sinh lop:');
writeln('Li do nghi hoc:');
readln;
end.
uses crt;
begin
clrscr;
writeln('DON XIN PHEP NGHI HOC');
writeln('Kinh gui: Ban Giam Hieu Truong THCS Hoang Hoa Tham');
writeln('Toi ten la:');
writeln('Phu huynh cua em:');
writeln('Hoc sinh lop:');
writeln('Li do nghi hoc:');
readln;
end.