Tin học Viết chương trình nhập số n. Cho biết tổng các ước số chẵn của số n? 06/08/2021 By Madelyn Viết chương trình nhập số n. Cho biết tổng các ước số chẵn của số n?
Uese crt; var s,n,i: integer; begin clrscr; writeln(‘Nhap n=’); readln(n); for i:= 1 to n do if n mod i = 0 then begin if i mod 2=0 then s:=s+i; end; writeln(‘Tong cac uoc chan cua n la:’,s); readln; end. Trả lời
program ct; uses crt; var i,n,S:longint; begin clrscr; write(‘Nhap so n: ‘); readln(n); S:=0; for i:=1 to n do if (n mod i=0) and (i mod 2=0) then S:=S+i; write(‘Tong cac uoc so chan cua ‘,n,’ la: ‘,S); readln; end. Học tốt! Trả lời
Uese crt;
var s,n,i: integer;
begin
clrscr;
writeln(‘Nhap n=’); readln(n);
for i:= 1 to n do
if n mod i = 0 then begin
if i mod 2=0 then s:=s+i;
end;
writeln(‘Tong cac uoc chan cua n la:’,s);
readln;
end.
program ct;
uses crt;
var i,n,S:longint;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
S:=0;
for i:=1 to n do
if (n mod i=0) and (i mod 2=0) then S:=S+i;
write(‘Tong cac uoc so chan cua ‘,n,’ la: ‘,S);
readln;
end.
Học tốt!