Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho
15 số lẻ được in trên một dòng.
a. Hướng dẫn:
- Cho j =0.
- Cho biến I chạy t

Question

Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho
15 số lẻ được in trên một dòng.
a. Hướng dẫn:
- Cho j =0.
- Cho biến I chạy từ 1 đến n.
- Nếu I chẵn ( I chia 2 dư 0) thì in ra số n và tăng j lên 1
- Nếu j chia hết cho 15 thì thực hiện xuống dòng (Dùng Writeln).

NinhNinh1603 · Answer

Bạn tham khảo!
var
  n, i, j: integer;
begin
  write('Nhap n: ');
  readln(n);
  j := 0;
  for i := 1 to n do
  begin
    if i mod 2  0 then
    begin
      write(i, ' ');
      j := j + 1;      
      if j mod 15 = 0 then
        writeln;
    end;
  end;
  writeln; 
end.

phamphucthinh · Answer

Program BTH;Uses crt;var j,i,n:word;BeginClrscr;Write('Nhap n ='); readln(n);j:= 0;For i:=1 to n do if i mod 2 =1 thenBeginWrite(i,' ');j:=j + 1;if j mod 15 = 0 then Writeln;end;readlnend.

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bạn muốn hỏi điều gì?

Tìm kiếm với hình ảnh

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Lưu vào

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bạn muốn hỏi điều gì?

Lý do báo cáo vi phạm?