1, Viết chương trình nhập vào 1 số nguyên dương n, in ra màn hình các số chia hết cho 5 trong phạm vi từ 1 -> n, trên cùng 1 hàng và in ra màn hình thông báo có bao nhiêu số được in
2, Viết chương trình tính tích của các số từ 15-> 35, rồi in ra màn hình
3, viết chương trình nhập 1 số nguyên dương n, in ra màn hình tích của nó từ 1-> n
1. var n,i,d:integer;
begin
repeat
writeln('nhap n');readln(n);
until n>0;d:=0;
for i;=1 to n do
if i mod 5+0 then
begin
write(i:4);
d:=d+1;
end;
writeln;
writeln(' trong pham vi tu 1 đên',n,'co',d,'so chia het cho 5 là');
readln;
end.
Bài 1:
Program hotrotinhoc_hoc24;
var d,i,n: integer;
begin
write('Nhap n='); readln(n);
d:=0;
write('Cac so chia het cho 5 la : ');
for i:=1 to n do
if i mod 5=0 then
begin
write(i,' ');
d:=d+1;
end;
writeln;
write('Co ',d,' so duoc in');
readln
end.
Bài 2:
Program hotrotinhoc_hoc24;
var i,t: integer;
begin
t:=1;
for i:=15 to 35 do t:=t*i;
write(t);
readln
end.
Bài 3:
Program hotrotinhoc_hoc24;
var i,n: integer;
t:longint;
begin
write('Nhap n='); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(t);
readln
end.
Bài 1:
uses crt;
var n,i,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chia het cho 5 trong khoang tu 1 toi ',n,' la: ');
dem:=0;
for i:=1 to n do
if i mod 5=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('So cac so chia het cho 5 trong khoang tu 1 toi ',n,' la: ',dem);
readln;
end.
Bài 2:
uses crt;
var i:byte;
s:real;
begin
clrscr;
s:=1;
for i:=15 to 35 do
s:=s*i;
writeln('Tich cac so tu 15 toi 35 la: ',s:4:2);
readln;
end.
Bài 3:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac so tu 1 toi ',n,' la: ',s:4:2);
readln;
end.