Viết chương trình nhập vào 5 số nguyên bất kì, tìm và in ra các số chia hết cho 5

0 bình luận về “Viết chương trình nhập vào 5 số nguyên bất kì, tìm và in ra các số chia hết cho 5”

1. 5* và câu trả lời hay nhất nha

   Uses crt;

   Var a:array[1..10] of integer;

          i: integer;

   BEGIN

   Clrscr;

   Writeln(‘Nhap 5 so nguyen bat ki: ‘);

   For i:=1 to 5 do 

   Begin

   Readln(a[i]);

   End;

   For i:=1 to 5 do 

   If a[i] mod 5 = 0 Then Write(a[i],’ ‘);

   Readln

   END.

   Bình luận