Viết chương trình nhập vào 2 số nguyên dương A,B (1≤A
Viết chương trình nhập vào 2 số nguyên dương A,B (1≤A
By Eden
By Eden
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.
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