Câu 1: Em hãy viết câu lệnh lặp (For …Do) cho các yêu cầu sau:
a) In ra màn hình 50 số tự nhiên đầu tiên
b) In ra màn hình các kí tự từ a đến z
c) In ra màn hình 100 số lẻ tự nhiên đầu tiên
d) Tính tổng 20 số tự nhiên đầu tiên
Câu 1: Em hãy viết câu lệnh lặp (For …Do) cho các yêu cầu sau: a) In ra màn hình 50 số tự nhiên đầu tiên b) In ra màn hình các kí tự từ a đến z c
By Harper
a)
for i:=1 to 50 do write (i:3);
b)
for i:=’a’ to ‘z’ do write (i,’ ‘);
c)
for i:=1 to 100 do if i mod 2<>0 then write (i:3);
d)
for i:=1 to 20 s:=s+i;
Câu a)
program in_so;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 50 do write(i,’ ‘);
readln;
end.
Câu b)
program in_kitu;
uses crt;
var i:char;
begin
clrscr;
for i:=’a’ to ‘z’ do write(i,’ ‘);
readln;
end.
Câu c)
program in_so_le;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 200 do
if i mod 2=1 then write(i,’ ‘);
readln;
end.
Câu d)
program tinh_tong;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t+i;
write(‘Tong 20 so tu nhien dau tien la: ‘,t);
readln;
end.