Câu 1 :

Tham khảo

Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được

Input : Dãy A gồm N số nguyên a1....aN;

Output : Trung bình cộng của  các số dương;

B1 : Nhập N số nguyên a1.... aN;

B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;

B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];

B4 : dem <--- dem + 1;

B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;

B 6 : i <--- i + 1 rồi quay lại B3;

Câu 2 :

Tham khảo

Ta nhận thấy rằng, bội số chung nhỏ nhất của hai số nguyên dương a, b có thể được tính theo công thức:

ab/d

trong đó d là ước chung lớn nhất của a và b.

Bởi vậy:

Nên viết hàm để tính bội chung nhỏ nhất của hai số nguyên dương vì chương trình con cần trả ra một giá trị;

- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b cần sử dụng hàm tính ước chung lớn nhất của a và b.

- Hàm tính ước chung lớn nhất của hai số nguyên dương a, b:

function ucln (a, b: integer): integer;

var r: integer;

begin

while b>0 do begin

r: = a mod b ,a : = b ; b:= r; end; ucln:= a; and;

- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b:

This is a modal window.

lunction bcnn(a, b: integer): integer;

begin

bcnn:= a*b div ucln(a, b);

end;

Khi đó, chương trình con tính bội số chung nhỏ nhất của hai số nguyên dương a, b như sau:

program bai4_chuong6;

use crt ;

vai

X y: integer;

function ucln(a, b: integer): integer;

var r: integer;

begin

while b>0 do begin

r:= a mod b; a: = b ,b:= r;

end; ucln:= a;

end;

txnction bcnn(a, b: integer): integer;

begin

bcnn:= a*b div ucln(a, b);

end;

Begin

clrscr;

writeln('Nhap vao hai so can tim BCNN');

write ('x=') , readln(x); write ('y=') , readln(y);

writeln('bcnn cua hai so',x:4,'va',y:4,'la',bcnn(a,b)

readln

End.

Câu 3 : chịu

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x>0) dem++;

}

cout<<dem;

return 0;

}

Vào đây tham khảo nha ! : Câu hỏi của Phạm Chí Cường - Toán lớp 6 | Học trực tuyến

Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được

Input : Dãy A gồm N số nguyên a1....aN;

Output : Trung bình cộng của  các số dương;

B1 : Nhập N số nguyên a1.... aN;

B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;

B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];

B4 : dem <--- dem + 1;

B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;

B 6 : i <--- i + 1 rồi quay lại B3;

Input: N, dãy số nguyên a1,a2,...,aN và k

Output: Số phần tử là bội của k

Thuật toán liệt kê:

Bước 1: Nhập N, dãy số nguyên a1,a2,...,aN và k

Bước 2: d←0; i←1;

Bước 3: Nếu i>N thì in ra d và kết thúc

Bước 4: Nếu a_i chia hết cho k thì d←d+1; 

Bước 5: i←i+1; quay lại bước 3

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

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

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.