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.
Vì bạn writeln(i) mà nên biến đếm phải là i, nếu bạn thay biến đếm khác i thì không in ra được kết quả.
à, lỗi rồi, mình xin sửa lại là writeln <biến đếm>; xin lỗi.
program ko_co_ten;
uses crt;
var i:integer;
begin
clrscr;
for i:1 to 50 do writeln(i);
readln;
end.
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write('*');
writeln;
end;
readln;
end.
program bai1;
var n,du,d:longint;
begin
write('N= ');readln(n);
d:=0;
while n<>0 do
begin
du:=n mod 10;
d:=d+1;
n:=n div 10;
end;
writeln('So chu so la ',d);
readln
end.
uses crt;
var i,j,kt:integer;
begin
clrscr;
for i:=100 to 1 do write(i:4);
writeln;
for i:=2 to 100 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
Program HOC24;
var i,j: byte;
begin
for i:=1 to 4 do
begin
for j:=1 to 10 do write('Y');
writeln;
end;
readln
end.