Viết chương trình nhập vào 2 số nguyên dương A,B (1≤A

30/07/2021 Bởi Eden

0 bình luận về “Viết chương trình nhập vào 2 số nguyên dương A,B (1≤A<B≤1000) từ bàn phím. Tính tổng các số lẻ trong đoạn từ A đến B và tìm phân số tối giản của phân”

1. uses crt;
   var a,b,t,i:longint;
   begin
   clrscr;
      write(‘a,b= ‘);readln(a,b);
      //Ting tong cac so le:
      for i:=a to b do if i mod 2=1 then inc(t,i);
      writeln(‘Tong cac so le: ‘,t);
      //Toi gian phan so:
      for i:=1 to a do if (a mod i=0)and(b mod i=0) then t:=i;
      writeln(a div t,’/’,b div t);
   readln
   end.

   Bình luận

2. Program So_nguyen_duong;

   uses crt;

   var a,b,i,j,sum: integer;

   X: array [1..100] of integer;

   Begin

   clrscr;

   repeat

   write(‘Nhap so A=’); readln(a);

   write(‘Nhap so B=’); readln(b);

   until (a<b);< p=””></b);<>

   j:=0; sum:=0;

   for i:=a to b do

   if i mod 2<>0 then

   begin

   inc(j);

   x[j]:=i;

   end

   else sum:=sum+i;

   writeln(‘Tong cua so chan tu ‘,a,’ den ‘,b,’ la: ‘,Sum);

   write(‘Cac so le tu ‘,a,’ den ‘,b,’ la: ‘);

   for i:=1 to j do

   write(x[i],’ ‘);

   readln

   End.

   HAY NHẤT+5 SAO+ CTLHN

   Bình luận