nhập 2 số nguyên n và m từ bàn phím. tính tích các số lẻ có từ n đến m và tổng các số n đến m rồi in ra tổng và tích đó
nhập 2 số nguyên n và m từ bàn phím. tính tích các số lẻ có từ n đến m và tổng các số n đến m rồi in ra tổng và tích đó
program phuongt;
uses crt;
var i, n, m, s, t: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
write(‘Nhap m = ‘); readln(m);
if n<=m then
begin
s:=0; t:=1;
for i:=n to m do
begin
s:=s+i;
if i mod 2 <>0 then t:=t*i;
end;
writeln(‘Tong = ‘, s);
writeln(‘Tich = ‘, t);
end
else
begin
s:=0; t:=1;
for i:=n downto m do
begin
s:=s+i;
if i mod 2 <>0 then t:=t*i;
end;
writeln(‘Tong = ‘, s);
writeln(‘Tich = ‘, t);
end
readln
end.
var n, m, i: integer;
S, T: longint;
Begin
Repeat
Write(‘nhap n va m: ‘);
readln(n, m);
Until m>n;
T:=1; s:=0;
For i:=n to m do
Begin
S:=s+i;
If (i mod 2 = 1) then T:=t*i;
End;
Writeln(‘tong: ‘, s);
Write(‘tich: ‘, t);
Readln
End.