Những câu hỏi liên quan
thanh thuý
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:56

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

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

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

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

end;

readln;

end.

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

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Bình luận (0)
30. Hoàng Nhơn
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 14:33

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

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

cin>>a[i];

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

cout<<a[i]<<" ";

}

Bình luận (1)
Trần Nhật Phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 1 2021 lúc 23:07

uses crt;

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

i,n,dem,dem1,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if sqrt(a[i])=trunc(sqrt(a[i])) then 

begin

inc(dem);

b[dem]:=a[i];

end;

dem1:=0;

for i:=1 to n do

  if a[i]>1 then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then 

begin

inc(dem1);

c[dem1]:=a[i];

end;

end;

if dem=0 then writeln('Trong day khong co so chinh phuong')

else begin

writeln('Cac so chinh phuong trong day la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

if dem1=0 then writeln('Trong day khong co so nguyen to')

else begin

writeln('Cac so nguyen to trong day la: ');

for i:=1 to dem1 do 

  write(c[i]:4);

end;

readln;

end.

Bình luận (0)
Hồ Xuân An
Xem chi tiết
Nguyễn Minh Quang
7 tháng 9 2021 lúc 9:59

Quầy thứ nhất nhập nhiều hơn quầy thứ hai là : \(50-30=20kg\)

Số gạo quầy 1 nhập là : \(\left(325+20\right):2=172.5kg\)

số gạo quầy hai nhập là \(172.5-20=152.5kg\)

Bình luận (0)
 Khách vãng lai đã xóa
Hello1234
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 10 2021 lúc 23:27

#include <bits/stdc++.h>

using namespace std;

string n;

int main()

{

cin>>st;

int d=st.length();

for (int i=0; i<=d-1; i++)

if (st[i]==0) st[i]='5'

cout<<st;

return 0;

}

Bình luận (0)
Hello1234
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 10 2021 lúc 23:31

#include <bits/stdc++.h>

using namespace std;

string n;

int main()

{

cin>>st;

int d=st.length();

for (int i=0; i<=d-1; i++)

if (st[i]==0) st[i]='5'

cout<<st;

return 0;

}

Bình luận (0)
Phương_52_7-23 Uyên
Xem chi tiết
Phía sau một cô gái
24 tháng 2 2023 lúc 20:51

program Sum;

var

     N, i, S: integer;

begin

     write('Nhap N: ');

      readln(N);

     S := 0;

     for i := 1 to N do

           S := S + i * (3 * i - 2);

     writeln('Tong S = ', S);

end.

   
Bình luận (0)
mizuki
Xem chi tiết
vũ đình bảo ngọc
5 tháng 11 2016 lúc 16:07

tổng số cà phê đã xuất đi là 8,7+6,3=15 tấn cà phê

số linh kiện thu về đc là 15:5 nhân 500=1500 linh kiên

vậy số linh kiện thu về là 1500 linh kiện

Bình luận (0)
trang
5 tháng 11 2017 lúc 18:45

cam on cua da giai cho to nhe

Bình luận (0)
bảo uyên ngô
Xem chi tiết