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
huyokkkkk
Xem chi tiết
Linh Nguyễn
Xem chi tiết
Sơn Mai Thanh Hoàng
10 tháng 3 2022 lúc 21:05

A

✎﹏ϯǜทɠ✯廴ěë︵☆
10 tháng 3 2022 lúc 21:05

A

Linh Nguyễn
10 tháng 3 2022 lúc 21:06

ủa alo

Vi Đoàn
Xem chi tiết
Minh Lệ
24 tháng 2 2022 lúc 16:21

Câu 16: (0,25đ) Trong các cách viết câu lệnh lặp với số lần định trước như sau, cách nào đúng?

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

-> Sai vì trước do có dấu ;

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

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

-> sai vì kết thúc câu lệnh không có dấu ;

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

 -> sai vì sau <biến đếm> không có dấu :

Thịnh Hồ
24 tháng 2 2022 lúc 18:50

B

 

NATT
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 21:38

1. A

2. A

NQ Thi
Xem chi tiết
Nguyễn Hoàng Duy
4 tháng 4 2023 lúc 0:03

program Tinh_Tong;

var n, s, i: integer;

begin
  write('Nhap vao so nguyen duong n: ');
  readln(n);
  s := 0;
  i := 1;
  while i <= n do
  begin
    s := s + i;
    i := i + 1;
  end;
  writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
  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

Trương Đại Phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:29

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

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

s:=1;

i:=1;

while i<=n do 

  begin

s:=s*i;

i:=i+1;

end;

writeln(s:0:0);

readln;

end.

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.

 

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.