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
diệu nguyễn
Xem chi tiết
PC Vũ
Xem chi tiết
Minh Lệ
11 tháng 5 2021 lúc 1:42

Program HOC24;

var i: integer;

s: real;

begin

s:=0;

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

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

readln

end.

mẫn
Xem chi tiết
Dinh Quang Vinh
19 tháng 3 2020 lúc 9:26

bn viết khó đọc quá

oho

Khách vãng lai đã xóa
Thúy Vy
19 tháng 3 2020 lúc 9:53

bn đăng lại và mỗi câu thì cách xuống dòng nha

Khách vãng lai đã xóa
Jessica Võ
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 6 2022 lúc 22:56

Câu 3:

Gọi chiều dài và chiều rộng lần lượt là a,b

Theo đề, ta có:a/7=b/3 và a-b=24

Áp dụng tính chất của dãy tỉ số bằng nhau, ta được:

\(\dfrac{a}{7}=\dfrac{b}{3}=\dfrac{a-b}{7-3}=\dfrac{24}{4}=6\)

Do đó: a=42; b=18

CHu vi la (42+18)x2=120(m)

Diện tích là 42x18=756(m2)

Nguyễn Cao Kỳ Uyên
Xem chi tiết
Phía sau một cô gái
8 tháng 3 2023 lúc 22:49

Câu a:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

 

NGUYỄN CHÍ tiến
9 tháng 3 2023 lúc 21:16

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

Bảo Châu
Xem chi tiết
Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:07

bài 1

Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:12

Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:23

BÀI 3

uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.

 

Nhung Nguyễn
Xem chi tiết
Minh Lệ
15 tháng 5 2023 lúc 19:22

Program HOC24;

var i: byte;

s: longint;

begin

s:=1;

for i:=1 to 100 do s:=s*i;

write('S = ',s);

readln

end.

Kiều Vũ Linh
16 tháng 5 2023 lúc 7:26

var i:integer;

s: longint;

begin

s:=1;

for i:=2 to 100 do s:=s*i;

write('S = ',s);

readln

end.

Phạm Dương Phúc Khang
21 tháng 1 lúc 23:00

var

s:longint;

begin

     clrscr;

s:=1;

for i:=1 to 100 do s:=s*i;

     readln;

end.

Đoàn Lê Hồng Yến
Xem chi tiết
Minh Lệ
19 tháng 3 2020 lúc 17:13
Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
19 tháng 3 2020 lúc 19:48

uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('S=',s:4:2);
readln;
end.

Khách vãng lai đã xóa
Phan Tiến Đạt
19 tháng 3 2020 lúc 21:01

program an_danh;
uses crt;
var tong:real;
i:integer;
begin
clrscr;
tong:= 0;
for i:= 1 to 100 do
tong:= tong + 1/i;
write('Tong = ',tong:0:2);
readln
end.

Khách vãng lai đã xóa
Jack Viet
Xem chi tiết