Những câu hỏi liên quan
Xem chi tiết
Minh Lệ
15 tháng 3 2021 lúc 19:03

Program HOC24;

var b: real;

i,n: integer;

begin

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

b:=0;

for i:=1 to n do b:=b+1/(i+2);

write('B= ',b:1:2);

readln

end.

Bình luận (0)
Duy
Xem chi tiết
Đỗ Trọng TÍn
Xem chi tiết
Minh Lệ
28 tháng 4 2023 lúc 22:46

Câu 1:

Program HOC24;

var i,n: integer;

t: longint;

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

t:=1;

for i:=1 to n do t:=t*i;

write(n,'! = ',t);

readln

end.

Bình luận (0)
Minh Lệ
28 tháng 4 2023 lúc 22:47

Câu 2:

Program HOC24;

var i,n: integer;

S: real;

begin

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

S:=0;

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

write('S = ',s);

readln

end.

Bình luận (1)
Hoài thịnh
Xem chi tiết
Sơn Tùng MTP
Xem chi tiết
Nhật Minh
Xem chi tiết
Minh Lệ
17 tháng 3 2023 lúc 23:15

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=25 to 50 do if (i mod 5=0) and (i mod 2=1) then t:=t+i;

write('Tong la: ',t);

readln

end.

Bình luận (0)
Nguyến Ngọc Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2021 lúc 14:56

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

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

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

Bình luận (0)
Vòng Thị Kim Phượng
Xem chi tiết
Oo Bản tình ca ác quỷ oO
24 tháng 3 2016 lúc 10:13

quãng đường AB dài 125 km

Bình luận (0)
Vòng Thị Kim Phượng
24 tháng 3 2016 lúc 12:12
Bn giải rõ hơn đc ko cao nguyễn thu hiền
Bình luận (0)
le thi hong them
24 tháng 3 2016 lúc 14:12

gọi x là quang đường AB điều kiên x>0

thời gian tong cộng là 5/2h (2h30), thời gian người đó nghỉ là 1/4h vậy thời gian ngườI đó yk dx trên quãng đương AB là 5/2-1/4=9/4h(2.25h)

ta có phương trình:50*9/4=112.5km

Bình luận (0)
xmisiucute
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2022 lúc 9:11

uses crt;

var n,i,s:integer;

begin

clrscr;

n:=1;

s:=0;

repeat

s:=s+n;

n:=n+1;

until s>1000;

writeln(n);

readln;

end.

Bình luận (0)