Giúp e câu này, thứ 2 em kiểm tra học kì rồi ạ Viết chương trình nhập vào 3 số nguyên, đếm xem tổng của ba số đó chia hết cho bao nhiêu phần tử trong

0 bình luận về “Giúp e câu này, thứ 2 em kiểm tra học kì rồi ạ Viết chương trình nhập vào 3 số nguyên, đếm xem tổng của ba số đó chia hết cho bao nhiêu phần tử trong”

1. program ct;

   uses crt;

   var A:array[1..50] of integer;

         i,a,b,c,dem:integer;

         S:longint;

   begin clrscr;

      for i:=1 to 50 do

        begin

           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

      writeln(‘Nhap vao ba so nguyen: ‘); readln(a,b,c);

        S:=a+b+c; dem:=0;

      for i:=1 to 50 do

        if S mod A[i]=0 then dem:=dem+1;

      writeln(‘Tong cua ba so do chia het cho ‘,dem,’ phan tu cua mang A);

   readln;

   end.

   Học tốt!

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var A:array[1..50] of integer;

   So1,so2,so3 : integer;

   S:longint;

   Dem,i:byte;

   Begin

   Clrscr;

   S:=0; dem:=0;

   Write(‘nhap 3 so’); 

   Readln(so1,so2,so3);

   S:=so1+so2+so3;

   For i:=1 to 50 do

   Begin

   Write(‘A[‘,i,’]’);

   Readln(A[i]);

   End;

   For i:=1 to 50 do

   If (S mod A[i] =0) then inc(dem);

   Writeln(‘tong chia het cho’,dem,’phan tu’);

   Readln

   End.

   Bình luận