Những câu hỏi liên quan
trần hoàng
Xem chi tiết
Lê Trần Kim Hoàng
7 tháng 2 2023 lúc 10:09

program ct;
uses crt;
var dem,n,s,max,t:longint;
begin
        writeln('nhap n:');readln(n);
        while n>0 do begin
                        s:=n mod 10;
                        t:=t+s;
                        if max<s then max:=s;
                        dem:=dem+1;
                        n:=n div 10;
                     end;
        writeln('tong la',t,',','co',' ',dem,' ','chu so',',','chu so lon nhat la:',max);
        readln
end.

bạn xem lại nha mik làm đây nhưng k bt đk

Bình luận (0)
trần hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 21:53

#include <bits/stdc++.h>

using namespace std;

long long i,n,kt,j;

int main()

{

cin>>n;

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

{

kt=0;

for (j=2; j*j<=i; j++)

if (i%j==0) kt=1;

if (kt==0) cout<<i<<" ";

}

return 0;

}

Bình luận (0)
Lê Tâm Anh
Xem chi tiết
gấu béo
7 tháng 5 2023 lúc 19:20

program Le_Nho_Hon_Hoac_Bang_n;

uses crt;

var

       n, i: integer;

begin

       clrscr;

       write('Nhap vao mot so nguyen duong n: ');

       readln(n);

       while n <= 0 do

       begin

              writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');

              readln(n);

       end;

       clrscr;

       writeln('Cac so le nho hon hoac bang ', n, ' la:');

       i := 1;

       while i <= n do

       begin

              if i mod 2 <> 0 then

                     writeln(i);

              i := i + 1;

       end;

       readln;

end.

Bình luận (0)
phamthiminhanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:42

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

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

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

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

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Bình luận (0)
Yoriichi_Tsugikuni ( ɻɛɑ...
11 tháng 6 2021 lúc 14:55

Scratch hay java

Bình luận (0)
 Khách vãng lai đã xóa
Chi Le
Xem chi tiết
Phía sau một cô gái
19 tháng 4 2023 lúc 20:20

program XuatSoChan;
uses crt;
const
  Max_N = 20;
type
  MangSoNguyen = array [1..Max_N] of integer;
var
  A: MangSoNguyen;
  i, n: integer;
begin
  clrscr;
  write('Nhap so luong phan tu cua mang: ');
  readln(n);
  writeln('Nhap cac phan tu vao mang:');
  for i := 1 to n do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
  end;
  writeln('Cac so chan trong mang la:');
  for i := 1 to n do
  begin
    if A[i] mod 2 = 0 then
      writeln(A[i]);
  end;
  readln;
end.

Bình luận (0)
Hoàng Hugi
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:36

#include <bits/stdc++.h>

using namespace std;

long long i,n,dem;

int main()

{

cin>>n;

dem=0;

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

{

int x=sqrt(i);

if (x*x==i) 

{

dem++;

cout<<i<<" ";

}

}

cout<<endl;

cout<<dem;

return 0;

}

Bình luận (1)
Đỗ Trọng TÍn
Xem chi tiết
ytkc
Xem chi tiết
Nguyễn Hoàng Duy
17 tháng 6 2023 lúc 10:42

#include <iostream>

using namespace std;

int main() {
    int n;
    cout << "Nhap vao mot so nguyen khong am: ";
    cin >> n;

    int count = 0;
    for (int i = n + 1; i <= n * n; i++) {
        if (i > 0) {
            count++;
        }
    }

    cout << "So luong so duong lon hon " << n << " va nho hon hoac bang " << n * n << " la: " << count << endl;

    return 0;
}

Bình luận (0)
ytkc
15 tháng 6 2023 lúc 21:01

#include <iostream>
using namespace std;
int main()
{
    long long n;
    cin>>n;
    cout <<n*n-n<<endl;
    return 0;
}

 

Bình luận (0)
22 Sang Hồ
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2021 lúc 13:37

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

if (n>0) cout<<"N phai la so duong";

else {

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

}

return 0;

}

Bình luận (1)