1.Viết chương trình của các số từ 1 đến n với n nhập vào từ bàn phím,n nguyên dương
2.Viết chương trình in ra màn hình các số chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1 đến n;biết n nhập vào từ bàn phím,n nguyên dương
3.Viết chương trình tính tích các số từ 15 đến 35,in ra màn hình tích đó
(làm cả xác định bài toán,mô tả thuật toán và viết chương trình)
mai e lm ktra rồi,mong mn giúp ạ
thanks mn trc
Bài 2:
Xác định bài toán:
-Input : số nguyên N
-Output : Các sô chia hết cho 3 và số lượng số chia hết cho 3 từ 1 đến n
Thuật toán:
Bước 1: Nhập N
Bước 2: i←1; d←0;
Bước 3: Nếu i>=n thì chuyển đến bước 6
Bước 4:Nếu i mod 3 =0 thì in ra i
Bước 5: Nếu i mod 3=0 thì d←d+1;
Bước 6: i←i+1 quay lại bước 3
Bước 7: In ra số lượng số chia hết cho 3 là d
Bước 8: Kết thúc
Program hotrotinhoc_hoc24;
var i,n,d: integer;
begin
write('N='); readln(n);
i:=1; d:=0;
write('Cac so chia het cho 3 tu 1 den ',n,':');
while i<n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+1;
i:=i+1;
end;
writeln;
write('Co ',d,' so chia het cho 3');
readln
end.
Bài 3:
Xác định bài toán:
-Input : dãy số từ 15 đến 35
-Output : Tích các số từ 15 đến 35
Thuật toán:
Bước 1: i←15; t←1;
Bước 2: Nếu i>=35 thì in ra kết quả và kết thúc
Bước 3: t←t*i;
Bước 4: i←i+1 quay lại bước 3
Viết chương trình:
Program hotrotinhoc_hoc24;
var i,t: integer;
begin
write('N='); readln(n);
i:=15; t:=1;
write('Tich cac so tu 1 den 35 la ');
while i<n do
begin
t:=t*i;
i:=i+1;
end;
readln
end.
Bài 1:
*Xác định bài toán
-Input: số n
-Output: Tích các số từ 1 tới n
*Mô tả thuật toán
-Bước 1: nhập n
-Bước 2: s←1;
-Bước 3: cho for i chạy từ 1 tới n
-Bước 4: s←s*i;
-Bước 5: Xuất s
-Bước 6: Kết thúc
*Viết chương trình
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac so tu 1 toi ',n,' la: ',s:0:0);
readln;
end.
Bài 2:
*Xác định bài toán
-Input: số n
-Output: Xuất ra màn hình các số chia hết cho 3 và có bao nhiêu số chia hết cho 3 trong khoảng từ 1 tới n
*Mô tả thuật toán
-Bước 1: Nhập n
-Bước 2: dem←0;
-Bước 3: cho for i chạy từ 1 tới n
-Bước 4: nếu i chia hết cho 3 thì xuất i và dem←dem+1
-Bước 5: Xuất dem
-Bước 6: kết thúc
*Viết chương trình
uses crt;
var n,i,dem:integer;
begin
clrscr;
repeat
write('n='); readln(n);
until n>0;
dem:=0;
writeln('Cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
if i mod 3=0 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln('So cac so chia het cho 3 trong khoang tu 1 toi ',n,' la:',dem);
readln;
end.
Bài 3:
*Xác định bài toán
-Input: dãy số từ 15 tới 35
-Output: Tích của dãy số đó
*Mô tả thuật toán
-Bước 1: s←1; i←15
-Bước 2: s←s*i;
i←i+1;
-Bước 3: nếu i<=35 thì quay lại bước 2
-Bước 4: xuất s
-Bước 5: kết thúc
*Viết chương trình
uses crt;
var i:integer;
s:real;
begin
clrscr;
i:=15; s:=1;
while i<=35 do
begin
s:=s*i;
i:=i+1;
end;
writeln('Tich cua cac so tu 15 toi 35 la: ',s:0:0);
readln;
end.
Bài 1 đề là tính tổng hay tính tích vậy bạn?
