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.

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)
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;

}

Bình luận (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;

}

Bình luận (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.

Bình luận (0)
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 

Bình luận (0)
 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

Bình luận (0)
 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\)

Bình luận (0)
 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]<<" ";

}

Bình luận (1)
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.

Bình luận (0)