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 vd1;
uses crt;
begin
clrscr;
writeln('chao cac ban toi la minh');
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 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.
(2) write(‘hay nhap so hoc sinh trong lop :’);
(1) readln(N);
(3) write(‘nhap chieu cao cua tung ban tinh theo m’);
(6) for i:=1 to N do
(4) begin
(7) read (a[I]);
(8) write (a’[‘,i,’]=')
(5) end;
program MultiplesOfN;
var
n, i: integer;
begin
repeat
write('Nhap vao so nguyen duong n (0<n<100): ');
readln(n);
until (n > 0) and (n < 100);
writeln('Cac boi so cua ', n, ' co 4 chu so la:');
for i := 1000 to 9999 do
begin
if (i mod n = 0) then
begin
writeln(i);
end;
end;
readln;
end.