Viết chương trình cho phép nhập vào 2 số nguyên dương N và K. Sau đó ghi ra màn hình đánh sách các số nguyên nhỏ hơn N và chia hết cho K

2 câu trả lời

uses crt;
var i,n,k:longint; 
begin
clrscr;
   write('Nhap N,K: ');readln(n,k);
   for i:=1 to n-1 do 
      if i mod k=0 then write(i,' ');
readln
end.

uses crt;

var n,k,i:longint; 

begin

clrscr;

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

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

for i:=1 to n-1 do 

if i mod k=0 then write(i,'  ');

readln;

end.

Câu hỏi trong lớp Xem thêm