Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
35.Yến Oanh 8/4
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:22

#include <bits/stdc++.h>

using namespace std;

long long i,n,dem;

int main()

{

cin>>n;

dem=0;

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

if (n%i==0)

{

cout<<i<<" ";

dem++;

}

cout<<endl;

cout<<dem;

return 0;

}

Chira Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 20:20

for i:=1 to n do 

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

Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 20:21

Chương trình đầy đủ:

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.

TKT VN
Xem chi tiết
nguyễn an phát
1 tháng 9 2021 lúc 11:21

program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
  clrscr;
  repeat
    write('nhap n:');readln(n);
    if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
  until (n>0)and(n<10000);
  writeln('cac uoc so la so tu nhien cua ',n,' la:');
  for i:=1 to n do
  if n mod i=0 then write(i,'    ');
  writeln;
  dem:=0;
  for i:=2 to n do
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then inc(dem);
  end;
  if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then write(i,'    ');
  end;
  if dem=0 then write(0);
  readln;
end.

 

Hoà Trần
Xem chi tiết
Võ Đức Dũng
5 tháng 10 2021 lúc 7:14

uses crt;

var i,n,n,d: integer;

t: real;

A: array[1..32000] of integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

for i:=1 to n do

if a[i] <0 then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Tong la:',t/n:2:4);

write('Co tat ca so so am la:',d);

readln;

end.

Hoà Trần
4 tháng 10 2021 lúc 12:48

Mik đag cần gấp chiều nay nhờ mn giải giúp mik 😆😆😆

Võ Đức Dũng
5 tháng 10 2021 lúc 7:13

uses crt;

var i,n,n,d: integer;

t: real;

A: array[1..32000] of integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

for i:=1 to n do

if a[i] <0 then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Tong la:',t/n:2:4);

write('Co tat ca so so am la:',d);

readln;

end.

uses crt;

var i,n,n,d: integer;

t: real;

A: array[1..32000] of integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

for i:=1 to n do

if a[i] <0 then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Tong la:',t/n:2:4);

write('Co tat ca so so am la:',d);

readln;

end.

Cẩm Tú
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2021 lúc 17:07

Rồi làm gì nữa bạn?

Khánh Linh
Xem chi tiết
Pham Uyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2020 lúc 13:09

uses crt;

var i,n,dem:integer;

begin

clrscr;

repeat

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

until n>0;

writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');

for i:=5 to n do 

  if (i mod 2=0) and (i mod 7=0) then write(i:4);

writeln;

writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');

dem:=0;

for i:=5 to n do 

  if i mod 7=0 then 

   begin

write(i:4);

inc(dem);

end;

writeln;

writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);

readln;

end.

Iris :3
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2023 lúc 15:36

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

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

readln;

end.

Hoà Trần
Xem chi tiết
Võ Đức Dũng
5 tháng 10 2021 lúc 7:01

uses crt;

var i,n,n,d: integer;

t: longint;

A: array[1..32000] of integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

for i:=1 to n do

if a[i] >0 then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Tong la:',t);

write('Co tat ca so so duong la:',d);

readln;

end.

Hoà Trần
4 tháng 10 2021 lúc 12:44

Giúp mình vs mình ko bt lm :((