Sử dụng NNLT Pascal, viết chương trình thực hiện các công việc sau: A) nhập vào dãy A gồm N số nguyên dương (N<100, các số nguyên dương nhỏ hơn 3000)

Sử dụng NNLT Pascal, viết chương trình thực hiện các công việc sau:
A) nhập vào dãy A gồm N số nguyên dương (N<100, các số nguyên dương nhỏ hơn 3000) B) tính tích các phần tử của mạng là ước của một số nguyên dương K cho trước

0 bình luận về “Sử dụng NNLT Pascal, viết chương trình thực hiện các công việc sau: A) nhập vào dãy A gồm N số nguyên dương (N<100, các số nguyên dương nhỏ hơn 3000)”

  1. uses crt;

    var a: array[1..100] of integer;

    i,n,k: integer;

    tt: word;

    begin

    clrscr;

    tt:=1;

    write (‘nhap N: ‘);  readln (n);

    write (‘nhap K: ‘);  readln (k);

    for i:=1 to n do

    begin

    write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

    if k mod a[i]=0 then tt:=tt*a[i];

    end;

    writeln (‘tich cua cac phan tu la uoc cua ‘,k,’ la: ‘,tt);

    readln;

    end.

    Bình luận

Viết một bình luận