Tính tổng và tích của các số chẵn từ a đến b giúp em với ạ

Question

Tính  tổng và tích của các số chẵn từ a đến b giúp em với ạ

daohoa · Answer

program tong;

uses crt;

var a,b,i,T,tich: integer;

Begin

clrscr;

write(‘Nhap a: ‘); readln(a);

write(‘Nhap b: ‘); readln(b);

tich:=1;

for i:=a to b do

if i mod 2=0 then

begin

T:=T+i;

tich:=tich*i;

end;

write(‘T = ‘,T,’, tich = ‘,tich);

readln

End.

0 bình luận về “Tính tổng và tích của các số chẵn từ a đến b giúp em với ạ”