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.
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
tham khảo
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.
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+1/(3*i+2);
write('Tong la ',s:10:2);
readln;
end.
Program mun;
Uses crt;
Var i:integer;
Begin
For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);
Readln;
End.
P/s: Ko chắc ạ!
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do
writeln('2*',i,'=',2*i);
readln;
end.
tham khảo
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
t:=t+i;
writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);
readln;
end.
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
For...do:
var s,i: integer;
begin
readln(s,i);
s:=0;
For i:=3 to 99 do
If i mod 3 = 0 do s:=s+i;
write(s)
readln;
end.
while ... do:
Var i,S:integer;
Begin
Readln(i,s);
S:=0;
i:=3;
while i<=99 do
if i mod 3 = 0 then s:=s+i;
write(s);
Readln;
End.
Program HOC24;
var i,j: byte;
begin
for i:=1 to 3 do
begin
for j:=1 to 7 do write('*');
writeln;
end;
readln
end.