Viết chương trình nhập từ bàn phím số nguyên dương S . Tính và đưa ra màn hình tổng P của các số chia hết cho 8 trong đoạn từ 1 đến S

0 bình luận về “Viết chương trình nhập từ bàn phím số nguyên dương S . Tính và đưa ra màn hình tổng P của các số chia hết cho 8 trong đoạn từ 1 đến S”

1. Uses crt;
   Var i,s:integer;p:longint;
   BEGIN
   clrscr;
   write(‘Nhap s: ‘);readln(s);
   For i:=1 to s do if i mod 8=0 then p:=p+i;
   Writeln(‘Tong cac so tu 1 den ‘,s,’ la: ‘,p);
   Readln
   End.

   Bình luận

2. program az;

   uses Crt;

   var i,S : integer;

         P : longint;

   begin

   clrscr;

   P := 0;

   Write(‘NHap S = ‘); readln(S):

   For i:=1 to S do

   begin

   If (i mod 8 = 0) then P := P + i;

   end;

   Write(‘P = ‘,P);

   readln

   end.

   Bình luận