Những câu hỏi liên quan
Quỳnh Anh
Xem chi tiết
Rịt Nguyễn
Xem chi tiết
Bùi Anh Tuấn
15 tháng 3 2021 lúc 19:43

Bình luận (0)
Nguyễn Thuận
Xem chi tiết
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Bình luận (0)
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

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

Bình luận (1)
42. Nguyễn Thị Thanh Tuy...
Xem chi tiết
Ynasuya
16 tháng 3 2022 lúc 8:44

var n:integer; 
begin 
write('Nhap n: '); readln(n); 
if (n mod 3 =0) then 
write(n,' chia het cho 3') 
else 
write(m,' k chia het cho 3'); 
readln; 
end. 

Bình luận (0)
Nguyễn Lê Phước Thịnh
16 tháng 3 2022 lúc 14:06

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x%3==0) t+=x;

}

cout<<t;

return 0;

}

Bình luận (0)
Ngô Diệu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 10:10

Bước 1: Nhập n và nhập dãy số

Bước 2: tb←0; i←1;

Bước 3: tb←tb+x[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4

Bước 6: Xuất tb/n;

Bước 7: Kết thúc 

Bình luận (0)
Nguyễn Thị Tươi
Xem chi tiết
Phía sau một cô gái
9 tháng 12 2023 lúc 19:52

program UCLN;

var

     a, b, UCLN: integer;

begin

     write('Nhập số a: ');

     readln(a);

     write('Nhập số b: ');

     readln(b);

     while a <> b do

     begin

          if a > b then

               a := a - b

          else

               b := b - a;

     end;

     UCLN := a;

     writeln('Ước số chung lớn nhất của ', a, ' và ', b, ' là ', UCLN);

end.

Bình luận (0)
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

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

Bình luận (1)
huy hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:42

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0,i,dem=0;

cin>>n;

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

if (i%2==0)

{

t=t+i;

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

Bình luận (0)