Câu 1 : Viết chương trình hiện dãy số : 2 4 6 8 10 ( có sử dụng câu lệnh lặp ) Câu 2 : Viết chương trình hiện dãy số : 1 3 5 7 9 ( có sử dụng câu lệnh lặp )
2 câu trả lời
câu 1:
uses crt;
var i:longint;
begin
clrscr;
for i:=2 to 10 do if(i mod 2=0)then write(i,' ');
readln
end.
câu 2:
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 9 do if(i mod 2=1)then write(i,' ');
readln
end.
câu 1:
uses crt;
var i:byte;
begin
clrscr;
for i:=2 to10 do
write(i,' ');
readln;
end.
câu 2:
var s,i:longint;
begin
i:=2;s:=0;
while i<=9 do
begin
if i mod 2=0 then s:=s+(i-1);
i:=i+1;
end;
write('S= ',s);
readln
end.
#hlong210410
Câu hỏi trong lớp
Xem thêm