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
Nguyễn Vũ Thành Danh
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 2 2022 lúc 8:08

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

write(t);

readln;

end.

huyokkkkk
Xem chi tiết
Nguyễn Mai Anh Đào
Xem chi tiết
Phía sau một cô gái
7 tháng 3 2023 lúc 20:40

program tong_100_so_tu_nhien;

uses crt;

var i, S: integer;

begin

      S := 0;

      for i := 1 to 100 do

            S := S + i;

      writeln('Tong cua 100 so tu nhien dau tien la ', S);

      readln;

end.

 

 

  
Kiều Vũ Linh
7 tháng 3 2023 lúc 21:11

Var i,s:integer;

Begin

i:=1;

s:=0;

While i<=100 do

Begin

s:=s+i;

i:=i+1;

End;

Write('Tong la ',s);

Readln;

End.

Bé Heo
Xem chi tiết
Trần Ái Linh
12 tháng 5 2021 lúc 10:55

Câu 8.

program im_14424;

uses crt;

var S: byte;

i: byte;

begin

clrscr;

S:=0;

for i:=1 to 20 do

S:=S+i;

writeln('Tong cua 20 so tu nhien dau tien la: ,S);

readln

end.
Câu 9.

j:=2 → Gán j = 2.

for i:=1 to 5 do → lặp lại 5 lần

j:=j+2 → 

Lần 1: 4

Lần 2: 6

Lần 3: 10

Lần 4: 12

Lần 5: 14

 

 

Trúc Giang
12 tháng 5 2021 lúc 10:52

 Câu 1:

uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.

Câu 2:

i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12

Anh Thư
Xem chi tiết
ᴠʟᴇʀ
28 tháng 3 2022 lúc 8:20

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0; i:=1; 

while (i<=n) do 

  begin

if n mod i=0 then t:=t+i;

i:=i+1;

end;

writeln(t);

readln;

end.

Oni-chan
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:14

a: 125 mod 5<>0

b: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 50 do t:=t+i;

write(t);

readln;

end.

c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

d: 

Dạng thiếu: if <điều kiện> do <câu lệnh>;

Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;

Hùng Bùi
Xem chi tiết
Minh Lệ
24 tháng 3 2023 lúc 0:04

Program HOC24;

var i,n: integer;

S:longint;

begin

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

s:=0;

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

write('Tong la ',s);

readln

end.

Lon Tien
Xem chi tiết
Minh Lệ
28 tháng 3 2022 lúc 5:55

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=1 to 100 do t:=t+i;

write(t);

readln

end.

Linh Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 9:22

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

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

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.