Những câu hỏi liên quan
Chiu Chiu
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 3 2021 lúc 21:40

uses crt;

var a:array[52..101]of integer;

i,n,t:integer;

begin

clrscr;

repeat

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

until (51<n) and (n<102);

for i:=52 to n do 

 begin

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

end;

t:=0;

for i:=52 to n do 

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

writeln(t);

readln;

end.

Bình luận (1)
Dan_hoang
Xem chi tiết
Trúc Giang
12 tháng 12 2020 lúc 10:49

Program hoc24;

Uses crt;

Var r,S,C:real;

Begin

Write ('Ban kinh la');

Readln (r);

S:=r*r*3.14;

C:=r*2*3.14;

Writeln ('Chu vi la',C);

Writeln ('Dien tich la',S);

Readln;

End.

Bình luận (2)
Nguyễn Lê Phước Thịnh
12 tháng 12 2020 lúc 19:54

uses crt;

var r,cv,dt:real;

begin

clrscr;

repeat

write('Nhap ban kinh:');readln(r);

until r>0;

cv:=r*2*pi;

dt:=sqr(r)*pi;

writeln('Chu vi=',cv:4:2);

writeln('Dien tich=',dt:4:2);

readln;

end.

Bình luận (0)
0o0 Nhok kawaii 0o0
Xem chi tiết
Toản
Xem chi tiết
quân nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 21:42

a: 

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

b: 

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<t;

return 0;

}

Bình luận (1)
duong van tam
Xem chi tiết
Lê Thiên Hương
11 tháng 2 2021 lúc 15:54

program chia_n;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

Write('Hay nhap so n ');readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

nhớ tick cho mik nha!

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

 

 

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

}

Bình luận (0)
Lư Gia Hân
Xem chi tiết
San San
Xem chi tiết
Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:21

Câu 1: 
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Bình luận (0)
Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:22

Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Bình luận (0)