Viết chương trình nhập vào một số nguyên n (0
Viết chương trình nhập vào một số nguyên n (0
By Faith
By Faith
var n, d, i: word;
sa, sc: longint;
Begin
Write(‘nhap n: ‘); readln(n);
sa:=0; sc:=0; d:=0;
For i:=1 to n do
Begin
sa:=sa+i;
if (i mod 15 = 0) and (i<>n)
then sc:=sc+i;
if i mod 5 = 0 then inc(d);
End;
Writeln(‘tong o cau a) la: ‘, sa);
Writeln(‘co ‘, d, ‘ so chia het cho 5’);
Write(‘tong o cau c) la: ‘, sc);
Readln
End.
program BT;
uses crt;
var n,d: integer;
i,S,T: longint;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
S:=S+i;
if i mod 5=0 then d:=d+1;
if (i mod 3=0) and (i mod 5=0) then T:=T+i;
end;
writeln(‘a) S = ‘,S);
writeln(‘b) Tu 1 den ‘,n,’ co ‘,d,’ so chia het cho 5′);
write(‘c) Tong cac so chia het cho 3 va 5 = ‘,T);
readln
End.