K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

7 tháng 2 2017

ác bác xem hộ em mấy bài này với. dùng for do hoặc while do 
Bài 1: viết chương trình nhập vào 1 số tự nhiên n (n<=20000)
1. Đếm và viết ra các ước lẻ của số n
2. tính trung bình cộng các ước chẵn của n
3. kiểm tra xem n có phải số tự nhiên hoàn chỉnh ko? ( số hoàn chỉnh là số tự nhiên n có tổng các ước (khác n) bằng n?
4. Đếm và viết ra các ước nguyên tố của n?


Bài 2: viết chương trình nhập vào 1 số tự nhiên n
1. Hỏi n có bao nhiêu chữ số?
2. tổng các chữ số của n bằng bao nhiêu?
3. Hỏi n có phải số chính phương ko?
4. nếu có 3 chữ số thì n có thỏa mãn abc = a^3 + b^3 + c^3 ko?

Bài 3:
1. viết chương trình nhập 1 số tự nhiên N lớn hơn 1.
- kiểm tra n có phải số nguyên tố ko?
- Nếu N ko phải số nguyên tố thì viết N thành h của các thừa số nguyên tố.
2. viết chương trình in ra N số đầu tiên của dãy số Fibonacci.

7 tháng 9 2015

cac so le < 100 la 1;3;5;...;99

so cac so la( 99-1):2+1=50

tong la 50.(1+99):2=2500

TBC la 2500:50=50

23 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long n,t,x;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n=n/10;

}

if (t%3==0) cout<<"Co";

else cout<<"Khong";

return 0;

}

24 tháng 11 2021

amf theo kieeur true false duoc ko ak?

25 tháng 5 2021

program im_14424;

uses crt;

var A: array[1..100000] of integer;

S,i,n: integer;

begin

clrscr;

write('Nhap vao n: ');

readln(n);

S:=0;

for i:=1 to n do

begin

write('Nhap A[',i,']: ');

readln(A[i]);

if (A[i] mod 2 = 0 then S:=S+i;

end;

write(S);

readln

end.

25 tháng 5 2021

Chú ý dùng 14 có mở ngoặc nên có đóng ngoặc câu lệnh bạn nhé ^^

if (A[i] mod 2 = 0) then S:=S+i;

28 tháng 11 2021

THAM KHẢO:

uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

27 tháng 8 2023

bạn cần tôi trả lời ko

uses crt;
var a:array[1..100]of longint;
i,n,t,t1,tam,j:integer;
s,s1:int64;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until a[i]>=0;
end;
writeln('Mang A=');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong gia tri cua mang A la: ',t);
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac gia tri cua mang A la: ',s);
t1:=0;
for i:=1 to n do
if i mod 2=0 then t1:=t1+a[i];
writeln('Tong cac gia tri o vi tri chan la: ',t1);
s1:=1;
for i:=1 to n do
if i mod 2<>0 then s1:=s1*a[i];
writeln('Tich cac gia tri o vi tri le la: ',s1);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Mang A sau khi sap xep la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac phan tu co gia tri lon hon 10 la: ');
for i:=1 to n do
if a[i]>10 then write(a[i]:4);
readln;
end.

13 tháng 5 2020

Vâng c.on ạ

28 tháng 9 2018

a, 987-102=885 b, 103+102=205 c) số lớn nhất và bé nhất có 3 chữ số có tổng các chữ số bằng 9 là 900 và 108 d) số chẵn lớn nhất và bé nhất có 3 chữ số giống nhau là 888 và 222

21 tháng 7 2017

1/3=1/12+1/4

Các phân số thỏa mãn:1/9,2/8,3/7,4/6