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
lê trần lan anh
Xem chi tiết
Nguyễn Hoàng Duy
19 tháng 3 2023 lúc 22:41

var s, i: real;
begin
    s := 0;
    for i := 1 to 50 do
        s := s + 1/i;
    writeln('Tong s = ', s:0:2);
end.

 

Quỳnh Hương
19 tháng 3 2023 lúc 22:31

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

Minh Lệ
19 tháng 3 2023 lúc 22:53

while..do

Program HOC24;

var i: integer;

s: real;

begin

i:=1;

while i<=50 do

begin

s:=s+i;

i:=i+1;

end;

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

readln

end.

lê trần lan anh
Xem chi tiết
Kiều Vũ Linh
20 tháng 3 2023 lúc 12:24

Var i:integer;

s:real;

Begin

For i:=1 to 50 do

s:=s + 1/i;

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

Readln;

End.

vũ thành đông
Xem chi tiết
8G_4 Nguyễn Thu Hiền
Xem chi tiết
8G_4 Nguyễn Thu Hiền
15 tháng 5 2022 lúc 14:24

Mọi người ơi, giải giúp mình bài này với ạkhocroi

Vũ Phương Anh
Xem chi tiết
Trí Cao
Xem chi tiết
Kiều Vũ Linh
17 tháng 3 2022 lúc 9:18

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.

Trương Khánh Linh
Xem chi tiết
Minh Lệ
16 tháng 3 2023 lúc 21:50

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

Cong Doan
Xem chi tiết
nguyễn an phát
6 tháng 4 2021 lúc 22:25

program day_du_cau_lenh;

uses crt;

var i,n:integer;

a:array[1..100]of intrger;

begin

clrscr;

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

i:=1;

while i<=n do

begin

write('nhap a[',i,']:');readln(a[i]);

i:=i+1;

end;

for i:=1 to n do

if a[i]>=0 then write(a[i]) else write('');

readln;

end.

nguyenhoang
Xem chi tiết