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
Ngân
Xem chi tiết
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.

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.

Hehe
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 1 2022 lúc 20:42

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

Mai Duyên-08-83
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 1 2022 lúc 23:20

#include <bits/stdc++.h>

using namespace std;

long long n,x,t;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n/=10;

}

cout<<t;

return 0;

}

Kiều Vũ Linh
14 tháng 1 2022 lúc 15:56

Var t,n:integer;

begin

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

while n div 10 <> 0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la ',t);

readln;

end.

Không Cần Tên
Xem chi tiết
Cao Minh
Xem chi tiết
Ngô Hoàng Anh Thư
10 tháng 9 2020 lúc 19:39

lớp mấy vậy bn 

Khách vãng lai đã xóa

Đáp án:

HS giỏi là 5

HS khá là 6

HS TB là 14

Giải thích các bước giải: giỏi so hc sinh khá va TB lần lượt là a,b

a,b thuộc N*; c bằng 3

nên ta có: a/5 bằng b/6

a+b+3 vì a va b ít hơn c 3 hs nên ta có 5+6+3 bằng 14

AD t/c đấy tỉ so bằng nhau ta đc

a/5 - b/6 bằng -1/-1 bằng 1

do đó

a bằng 5

b bằng 6

c bằng 14

Tong số hs lop 7A là 25 hs trong đo co 5 hs giỏi, 6 hs khá, 14 hs TB

Khách vãng lai đã xóa
Vương Hải Nam
10 tháng 9 2020 lúc 19:47

Gọi học sinh giỏi , khad , TB theo thứ tự là : a,b,c \(\left(a,b,c\inℕ^∗\right)\)

Theo bài ra ta có :

\(\frac{a}{2}=\frac{b}{3}\Rightarrow\frac{a}{10}=\frac{b}{15}\)

\(\frac{b}{5}=\frac{c}{6}\Rightarrow\frac{b}{15}=\frac{c}{18}\)

\(\Rightarrow\frac{a}{10}=\frac{b}{15}=\frac{c}{18}\) và \(c-b=3\left(HS\right)\)

\(ADTCDTSBNTC\)

\(\frac{b}{15}=\frac{c}{18}=\frac{c-b}{18-15}=\frac{3}{3}=1\)

\(\Rightarrow a=10\)

\(b=15\)

\(c=18\)

Khách vãng lai đã xóa
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]<<" ";

}

ONCE - TWICE TV
Xem chi tiết
Linh Daxua
Xem chi tiết
Kiều Vũ Linh
24 tháng 12 2022 lúc 15:01

var st:string;

dem,i:integer;

begin

write('Nhap xau S = ');readln(st);

dem:=0;

for i:=1 to length(st) do

if st[i] = ' ' then dem:=dem+1;

dem:=dem+1;

write('So tu cua xau S la ',dem);

readln;

end.