Những câu hỏi liên quan
Bùi Ngọc Khánh Huyền
Xem chi tiết
Phía sau một cô gái
3 tháng 8 2023 lúc 20:29

program SoUocLa3;

var

     n, i, count: integer;

begin

     write('Nhap gia tri cua n (10<=n<=10^9): ');

     readln(n);

     writeln('Cac so co so uoc la 3 tu 1 den ', n, ' la:');

     count := 0;

     for i := 1 to n do

     begin

          if (n mod i = 0) then

          begin

               count := count + 1;

          end;

          if (count = 3) then

          begin

               write(i, ' ');

               count := 0;

          end;

     end;

     readln;

end.

Bình luận (0)
Len nè cả nhà
Xem chi tiết
minh đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 9:57

*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  write(a[i]:4);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 9:58

*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 9:59

*Viết chương chình nhập N số nguyên từ bàn phím in ra màn hình tổng các số cần nhập

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (0)
Ngọc Vy
Xem chi tiết
Thanh Phong (9A5)
22 tháng 2 2023 lúc 15:11

Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if (n mod 2<>0) then 

write(i:2);

readln;

end.

Bình luận (0)
nguyễn đình anh tuấn
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 10 2021 lúc 23:50

#inckude <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2==0) t=t+i;

cout<<t;

return 0;

}

Bình luận (0)
10. Nguyễn Thu Hải. 11H
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Phía sau một cô gái
20 tháng 3 2023 lúc 19:57

program SoHoanHao;

uses crt;

var

     i, j, n, s: integer;

begin

     clrscr;

     write('Nhap n: ');

     readln(n);

     for i := 1 to n do

     begin

          s := 0;

          for j := 1 to i - 1 do

          begin

               if i mod j = 0 then

                    s := s + j;

               end;

               if s = i then

                    writeln(i);

     end;

     readln;

end.

Bình luận (0)