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
Nguyễn Thuận
Xem chi tiết
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:50

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

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

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

else writeln(n,' la hop so');

end

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

readln;

end.

nguyễn thị cẩm tiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 14:45

2: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

cout<<fixed<<setprecision(2)<<s;

return 0;

}

TÌNH ĐIÊN DẠI
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 14:52

#include <bits/stdc++.h>

using namespace std;

int main()

{

float a,b,c,tbc;

cout<<"a="; cin>>a;

cout<<"b="; cin>>b;

cout<<"c="; cin>>c;

tbc=(a+b+c)/3;

cout<<fixed<setprecision(1)<<tbc;

return 0;

}

TÌNH ĐIÊN DẠI
2 tháng 10 2021 lúc 13:06

bài trong C ++ nha mn

 

phạm quang huy
3 tháng 10 2021 lúc 10:14

uses crt;
var a,b,c:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  write((a+b+c)div 3);
 readln;
end.

Tali
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 17:52

uses crt;

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

i,n:integer;

t:real;

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('Tong cua day la: ',t:4:2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

Nguyễn An Mây
Xem chi tiết
Nguyễn An Mây
25 tháng 3 2021 lúc 21:11

Mọi người giúp e với ạ

 

 

Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 16:10

uses crt;

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

i,n,tb,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

tb:=0;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then

begin

tb:=tb+a[i];

inc(dem);

end;

writeln('Trung binh cong cac so chia het cho 3 la: ',tb/dem:4:2);

readln;

end.

quocviet2808
Xem chi tiết
Kiều Vũ Linh
12 tháng 5 2023 lúc 7:55

Var a:array:[1..1000] of integer;

i,n,max,t,d:integer;

s:longint;

tb:real;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tb:=s/n;

Write('Cac so vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

writeln('Trung binh cong cua day la ',tb:10:2);

Write('Cac so la boi cua 3 la ');

For i:=1 to n do

if a[i] mod 3 = 0 then write(a[i]:8);

writeln;

write('Cac so le la boi cua 5 la ');

for i:=1 to n do

if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then

write(a[i]:8);

Writeln;

max:=a[1];

for i:=1 to n do

if a[i] > max then

begin

max:=a[i];

d:=i;

End;

Writeln('So lon nhat la ',max);

t:=a[1];

a[1]:=max;

a[d]:=t;

Write('Day sau khi dem so lon nhat ra truoc ');

For i:=1 to n do

write(a[i]:8)

writeln;

tb:=(a[8] + a[10])/2);

Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);

Readln

End.

Triều Phan
Xem chi tiết
Triều Phan
5 tháng 11 2021 lúc 7:26

giải giúp tôi với

 

 

Nguyễn Lê Phước Thịnh
6 tháng 11 2021 lúc 0:46

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a*b;

return 0;

}

Nguyễn Thị Vân
Xem chi tiết
Kiều Vũ Linh
28 tháng 4 2023 lúc 11:24

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

i,n,d:integer;

s:longint;

tbc:real;

begin

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

For i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

if a[i] mod 2 = 0 then d:=d+1;

end;

tbc:=s/n;

writel('Co ',d,' so chan');

write('Trung binh cong cua day so la ',tbc:10:2);

readln

end.

Yến Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 0:50

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

writeln((a+b+c)/3);

readln;

end.