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

0 bình luận về “viết chương trình nhập một dãy số tối đa 100 số sau đó in ra các số có thể chia hết 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,n:integer;
   Begin
    Write(‘ Nhap do dai day n =’); Readln(n);
   For i:= 1 to n do
    Begin
      Write(‘ Nhap so thu a[‘,i,’] = ‘); Readln(a[i]);
    End;
   Write(‘ Cac so trong day chia het cho ca 3 va 5 la: ‘);
   For i:= 1 to n do If (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then Write(a[i]:3);
   Readln
   End.

   Bình luận

2. program B8;
   uses crt;
   var so:array[1..100] of integer;
   i,n:integer;
   begin
   clrscr;
   writeln(‘Nhap n:’);readln(n);
   for i:= 1 to n do
   begin
   writeln(‘Nhap so thu ‘,i,’:’);readln(so[i]);
   end;
   for i:= 1 to  n do
   if (so[i] mod 3=0) or (so[i] mod 5 =0) then
   writeln(‘Cac so chia het cho 3 va 5 la:’,so[i]);
   readln;
   end.

   Bình luận