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
Pham Huynh Bao Thy
Xem chi tiết
Đỗ Nguyễn Anh Hào
Xem chi tiết

có gh của n ko bạn!

Kiều Vũ Linh
10 tháng 2 2022 lúc 16:21

var i,n:integer;

s:real;

begin

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

s:=1;

if n mod 2 = 0 then

begin

for i:=2 to n do

begin

s:=s*i;

i:=i+2;

end;

end

else

begin

for i:=1 to n do

begin

s:=s*i;

i:=i+2;

end;

write('Tong la ',s:10:2);

readln;

end.

Nguyễn Lê Phước Thịnh
10 tháng 2 2022 lúc 22:21

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

if (n%2==0) 

{

s=1;

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

if (i%2==0) s=s*i;

cout<<s;

}

else 

{

s=1;

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

if (i%2==1) s=s*i;

cout<<s;

}

return 0;

}

Nguyễn Thị Tươi
Xem chi tiết
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.

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.

Vũ Minh Quân
Xem chi tiết
Phía sau một cô gái
16 tháng 4 2023 lúc 20:34

program Tong_Binh_Phuong_So_Chan;

uses crt;

var n, i, sum: integer;

begin

     clrscr;

     write('Nhap vao so nguyen n (6 < n < 30): ');

     readln(n);

     sum := 0;

     for i := 2 to n do

          if i mod 2 = 0 then

               sum := sum + i * i;

     writeln('Tong binh phuong cac so chan tu 1 den ', n, ' la: ', sum);

     readln;

end.

Ngáo Ngơ Alice
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:50

Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

  s:=s+1/(2*i+1);

writeln(s:4:2);

readln;

end.

Thanh Nhi Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:12

Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé

uses crt;

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

i,n,t,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

edn;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.

Khánh Hoàng
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:32

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:8:2);

readln

end.

nuinuini
Xem chi tiết