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
Vương Khánh ngọc
Xem chi tiết
Minh Lệ
29 tháng 4 2021 lúc 14:38

Program HOC24;

var i,n: integer;

s: real;

begin

n:=3; s:=0;

while n<=36 do

begin

s:=s+2/n;

n:=n+3;

end;

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

readln

end.

duy nguyễn nhất
Xem chi tiết
Lý Tâm Như
Xem chi tiết
nguyễn an phát
27 tháng 5 2021 lúc 21:09

program tinh_tong;

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

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

for i:=1 to n*2-1 do

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

writeln('tong la: ',s);

readln;

end.

nguyễn an phát
27 tháng 5 2021 lúc 21:11

program tinh_tong;

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

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

i:=1;

while i<=n*2-1 do

begin

s:=s+1/i;

i:=i+2;

end;

writeln('tong la: ',s);

readln;

end.

Nguyễn Ngọc Quỳnh Trang
Xem chi tiết
Sinphuya Kimito
Xem chi tiết
Sinphuya Kimito
28 tháng 3 2022 lúc 8:04
   😢     
Nguyễn Lê Phước Thịnh
28 tháng 3 2022 lúc 10:06

uses crt;

var i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do if n mod i=0 then write(i:4);

readln;

end.

Nguyễn Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 20:14

Câu 1: A

Câu 2: C

Thế anh lã
Xem chi tiết
Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:14

Sử dụng vòng lặp while...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  i := 1;
  sum := 0;
  while i <= 20 do
  begin
    sum := sum + i;
    i := i + 1;
  end;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

 

Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:13

Sử dụng vòng lặp for...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 20 do
    sum := sum + i;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

 

cute pho mai que
Xem chi tiết
☞Tᖇì  ᑎGâᗰ ☜
27 tháng 3 2022 lúc 20:49

Cắt bớt ra cậu oy._.

Mạnh=_=
27 tháng 3 2022 lúc 20:50

tách ra

qlamm
27 tháng 3 2022 lúc 20:50

tách bớt cho dễ lm đi ạ

Ngân
Xem chi tiết
ILoveMath
3 tháng 3 2022 lúc 9:21

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s)

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

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

write(s);

Readln;

End.

ILoveMath đã xóa
ILoveMath
3 tháng 3 2022 lúc 10:29

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s);

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

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

write(s);

Readln;

End.