Viết chương trình : -Nhập vào số nguyên N . – Tính tổng các số chia hết cho 3 từ 1 đến N và xuất ra màn hình . – Thực hiện biến đếm xem có bao nhie

0 bình luận về “Viết chương trình : -Nhập vào số nguyên N . – Tính tổng các số chia hết cho 3 từ 1 đến N và xuất ra màn hình . – Thực hiện biến đếm xem có bao nhie”

1. Program Hotboy;

   Uses crt;

   Var i,n,dem,s : integer;

   Begin

   Clrscr;

   Dem:=0;s:=0;

   Write(‘nhap so nguyen N’); readln(n);

   For i:=1 to n do 

   begin

   If i mod 3= 0 then dem:=dem+1;

   end;

   for i:=1 to n do

   begin

   if i mod 3= 0 then S:=s+i;

   end;

   Writeln(‘tong cac so tu 1 den N chia het cho 3 la’,S);

   writeln(‘ so cac so chia het cho ba la’,dem);

   Readln

   End.

   Bình luận

2. program hotrotinhoc;

   var n,i.d: integer;

   t: longint;

   begin

   readln(n);

   t:=0; d:=0;

   for i:=1 to n do

   if i mod 3=0 then t:=t+i;

   writeln(‘Tong cac so chia het cho 3 tu 1 den n la:’,t);

   for i:=1 to n do

   if i mod 3=0 then inc(d);

   write(‘Co ‘,d,’ so chia het cho 3 tu 1 den N’);

   readln

   end.

   Bình luận