Thứ Ba, 3 tháng 5, 2022

XUATDS PASCAL

var n,i:longint;
begin
    assign(input,'xuatds.inp');reset(input);
    assign(output,'xuatds.out');rewrite(output);
    readln(n);
    for i:=1 to n do 
        write(2*i,' ');
    writeln;
    for i:=1 to n+1 do 
        write(i*2-1,' ');
end.

Không có nhận xét nào:

Đăng nhận xét

Lưu ý: Chỉ thành viên của blog này mới được đăng nhận xét.