VCT nhập vào 1 số n.Tính tích các số chia hết cho n từ 1 đến 50.In tích

program tinhtich;

Var

     N,i,P:longint;

Begin

     write('Nhap N: '); readln(n);

     P:=1;

     For i:=1 to 50 do if (i mod n=0) then P:=P*i;

     write('Tich la: ',P);

    Readln;

End.

Uses crt;

Var i,n,dem,s : integer;

Begin

Clrscr;

Dem:=0;s:=0;

Write('nhap so nguyen N'); readln(n);

For i:=1 to n do 

begin

If i mod 3= 0 then dem:=dem+1;

end;

for i:=1 to n do

begin

if i mod 3= 0 then S:=s+i;

end;

Writeln('tong cac so tu 1 den N chia het cho 3 la',S);

writeln(' so cac so chia het cho ba la',dem);

Readln

End.