viết chương trình nhập 1 dãy số tối đa 100 số , in ra màn hình các số là các số âm có thể chia hết cho 3 và 5

0 bình luận về “viết chương trình nhập 1 dãy số tối đa 100 số , in ra màn hình các số là các số âm có thể chia hết cho 3 và 5”

1. Đáp án: Như phần “Giải thích các bước giải”
   Giải thích các bước giải:

     Uses Crt;
   Var a:array[1..1000] of integer;
         i:integer;
   Begin
   For i:= 1 to 5 do
    Begin
      Write(‘ Nhap so a[‘,i,’] = ‘); Readln(a[i]);
    End;
   Write(‘ Cac so co the chia het cho ca 3 va 5 la: ‘);
   For i:= 1 to 5 do If (a[i]<0) and (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then Write(a[i]:5);
   Readln
   End.
   *Gửi lại cho bạn ạ!

   Bình luận

2. Program Tin_hoc;

   Uses crt;

   Var M: array[1..100] of longint; 

         i:  longint;

   Begin

       For i:=1 to 100 do 

       Begin

         Writeln(‘M[‘,i,’]=’); Readln(M[i]);

       End;

       Write(‘Cac so du tieu chuan la: ‘);

       For i:=1 to 100 do

          If (M[i]<0) and (M[I] mod 3 = 0) and (M[I] mod 5 = 0) then write(i);

       Readln

   End.

   Bình luận