Question

Viết chương trình tính tích các số từ 5 đến n , với n nhập từ bàn phím ( n>5)

Answer 1

program a;
uses crt;
var i,n : integer;
P:longint;
begin
clrscr;
writeln('Nhap n: '); readln(n);
P:=1;
for i:=5 to n do P:=P*i;
writeln('Tich cac so tu 5 den ',n,' : ',P);
readln;
end.

Answer 2

uses crt;

var s,i,n:longint;

begin

clrscr;

write('n='); readln(n);

if n>5 then

begin

s:=1;

for i:=5 to n do

s:=s*i;

writeln('tich cac so tu 5 toi ',n,' la: ',s);

end

else writeln('vui long nhap n lon hon 5');

readln;

end.

Answer 3

program an_danh;

uses crt;

var i,n:integer;

tich:longint;

begin

clrscr;

repeat

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

if n <= 5 then begin

write('Nhap so lon hon 5');

delay(2000); clrscr; end;

until n > 5;

tich:= 1;

for i:= 5 to n do

tich:= tich * i;

write('Tich cac so tu 5 den ',n,': ',tich);

readln

end.