Cho dãy số i=1,2,3...100 em hãy viết câu lệnh For-do hiển thị các số lẻ ra màn hình
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var i:integer;
a:array[1..20]of string;
begin
clrscr;
for i:=1 to 20 do readln(a[i]);
for i:=1 to 20 do
writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Program Hoc24;
var i: byte;
begin
for i:=1 to 20 do
writeln('Chao ban thu ',i);
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
program vdd;
uses crt;
var i,n: integer;
begin
clrscr;
write('Nhap N: '); readln(n);
for i:=1 to n do if i mod 2=1 then write(i,';');
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln(dem);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Var a:array[1..200] of integer;
i,n,s,s1:integer;
begin
write('Nhap so luong phan tu n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
writeln('Cac so vua nhap la ');
for i:=1 to n do
write(a[i],' ');
for i:=1 to n do
if a[i] > 0 then s:=s+a[i];
for i:=1 to n do
if a[i] mod 2 = 1 then s1:=s1+a[i];
writeln('Tong cac so nguyen duong trong day la ',s);
write('Tong cac so le la ',s1);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
t1:=0;
t2:=0;
repeat
readln(n);
if n mod 2=0 then t1:=t1+n
else t2:=t2+n;
until n=0;
writeln(t1,' ',t2);
readln;
end.
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.