Chủ Nhật, 26 tháng 6, 2022

TIMBOI PASCAL

var    i,n,x:longint;
begin
    assign(input, 'timboi.inp');reset(input);
    assign(output, 'timboi.out');rewrite(output);
    read(x,n);
    for i:=1 to n do
        if i mod x = 0 then 
        write(i, ' ');
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.