Question

nhập vào 1 số n in ra các số từ n đến 0

Answer 1

TK

 

Program hotrotinhoc_hoc24;

var i,n,d: integer;

begin

write('Nhap n='); readln(n);

d:=0;

for i:=1 to n do if i mod 2=0 then d:=d+1;

writeln('Co ',d,' so chan tu 1 den n');

write('Cac so chan do la : ');

for i:=1 to n do if i mod 2=0 then write(i,' ');

readln

end.

Answer 2

Var i,n:integer;

Begin

Write('Nhap n = ');readln(n);

For i:=n downto 1 do write(n,'  ');

Readln;

End.