Question

cho hai số nguyên a, b được đọc từ tệp baitap.inp, viết chương trình tính thương của hai số, tính tổng các số có trong khoảng từ a đến b , tính tích các số lẽ khoảng từ a đến b.

Answer 1

Program HOC24;

const fi='baitap.inp';

var f: text;

a,b: integer;

t: longint;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,a,b);

close(f);

end;

begin

ip;

writeln('Thuong cua 2 so la : ',a/b:1:2);

t:=0;

for i:=a to b do t:=t+i;

writeln('Tong cac so co trong khoang tu ',a,' den ',b,' la ',t);

t:=1;

for i:=a to b do if i mod 2<>0 then t:=t+i;

write('Tich cac so le trong khoang tu ',a,' den ',b,' la ',t);

readln

end.