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