Vct Nhập Vào 1 Số N A. đếm Xem Có Bao Nhiêu Số Lẻ Chia Hết Cho N Từ ...

Tất cả Toán học Vật Lý Hóa học Văn học Lịch sử Địa lý Sinh học Giáo dục công dân Tin học Tiếng anh Công nghệ Khoa học Tự nhiên Lịch sử và Địa lý trung minh đã hỏi trong Lớp 8 Tin học · 11:05 14/03/2022 Chương 1: Lập trình đơn giản Theo dõi Báo cáo

vct nhập vào 1 số n

a. đếm xem có bao nhiêu số lẻ chia hết cho n từ 1 đến 100. in đếm và các số đó

b. in ra màn hình các số chia cho 5 từ 1 đến 50

c. tính tích các số chia hết cho 5 và n từ 1 đến 100. in tích và các số đó

Trả Lời (+5 điểm) Hỏi câu khác Hỏi chi tiết ...Xem thêm

Quảng cáo

1 câu trả lời 1613

Hoàng Đạt 3 năm trước

var n,dem,i: integer;    tich: longint;begin   tich:=1;   write('Nhap N=  ');read(n); writeln;   begin       write('Cac so le chia het cho ',n,' la');writeln;       for i:= 1 to 100 do       if (i mod n = 0) and (i mod 2 <> 0) then write(i:4);writeln;   end;   begin       for i:= 1 to 100 do       if (i mod n = 0) and (i mod 2 <> 0) then dem:= dem + 1;       write('Dem = ', dem);writeln;   end;   begin       write('Cac so chia het cho ', n,' va 5 tu 1 den 50 la ');writeln;       for i:= 1 to 50 do       if (i mod n = 0) and (i mod 5=0) then write(i:4);writeln;   end;   begin       for i:= 1 to 100 do       if (i mod n = 0) and (i mod 5=0) then tich:= tich * i;       write('Tich cac so tu 1 den 100 chia het cho ', n, ' va 5 = ', tich); writeln;   end;   readln;end.

1 bình luận trung minh · 3 năm trước cảm ơn bạn nhiều, nhanh quá Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn muốn hỏi bài tập?

Đặt câu hỏi

Câu hỏi hot cùng chủ đề

• Trong Pascal, giả sử x là biến kiểu số nguyên. Phép gán nào sau đây là hợp lệ?

    A. x := 15/2;

    B. x := 50;

    C. x := 2,4;

    D. x := 83000;

  Trả lời (2) Xem đáp án » 10584

• Việc khai báo biến gồm khai báo tên biến và khai báo.........của biến. Chỗ còn thiếu trong phát biểu ở trên là:

  (Chỉ được chọn 1 đáp án)

  A.Phép gánB.Biến nhớC.Tính toánD.Kiểu dữ liệu.

  Trả lời (3) Xem đáp án » 10090

• hãy cho biết kết quả của phép toán sau :

  15 div 5

  15 mod 2

  Trả lời (2) Xem đáp án » 7481

• Ngôn ngữ lập trình gồm những gì?

  Trả lời (4) Xem đáp án » 7211

• Cho khai báo mảng như sau: Var a : array[0..30] of integer ;

  Để in giá trị phần tử thứ 20 của mảng một chiều A ra màn hình ta viết:

  A. Write(A[20]);

  B. Write(A(20));

  C. Readln(A[20]);

  D. Write([20]);