K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

9 tháng 5 2023

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('S = ',s);

readln

end.

16 tháng 3 2023

program TinhTong;

var

     i, S: integer;

begin

     S := 0;

     for i := 1 to 10 do

          S := S + i;

     writeln('Tong cac so tu 1 den 10 la: ', S);

     readln;

end.

7 tháng 3 2021

 Bài toán cổ nào vậy bạn?

7 tháng 3 2023

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.

 

 

  
7 tháng 3 2023

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.

2 tháng 8 2019

Cú pháp lệnh lặp với số lần chưa biết trước:

    while <điều kiện> do <câu lệnh>;

   Đáp án: B

ét o ét đê ;-;Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?A. if...then            B. if...then...else               C. for...to…do           D. while...do Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?A. 10 lần ;                           B. 15 lần;                                             C. 20 lần;            ...
Đọc tiếp

ét o ét đê ;-;
Câu 8:
Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?

A. if...then            B. if...then...else               C. for...to…do           D. while...do
 

Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?

A. 10 lần ;                           B. 15 lần;                                             C. 20 lần;                             D. Không thực hiện.

Câu 10 : Trong câu lệnh lặp    for i :=1 to 20 do begin s:= s+i; end ;

câu lệnh gán được thực hiện bao nhiêu lần?

a) Không lần nào.                       b) 1 lần                       c) 2 lần                       d) 20 lần

Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:

A. 1 đơn vị                 B. 2 đơn vị                 C. 3 đơn vị                 D. 4 đơn vị
 

Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?

A. Khi biến đếm nhỏ hơn giá trị cuối.                B. Khi biến đếm bằng giá trị đầu.

C. Khi biến đếm bằng giá trị cuối.                      D. Khi biến đếm lớn hơn giá trị cuối.
Muốn sà vào lòng soái ca khóc 1 trận - Baozou Manhua meme - Meme Gấu trúc Trung Quốc | Meme Dump | Lục Lọi Meme | Cộng đồng meme trực tuyến

3
10 tháng 3 2022

sao ko ai ngó ngàng gì đến tui hết zậy ;-;

10 tháng 3 2022

hiha

mn ới, ét o ét nèo ;-;Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?A. if...then            B. if...then...else               C. for...to…do           D. while...do Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?A. 10 lần ;                           B. 15 lần;                                             C. 20...
Đọc tiếp

mn ới, ét o ét nèo ;-;
Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?

A. if...then            B. if...then...else               C. for...to…do           D. while...do
 

Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?

A. 10 lần ;                           B. 15 lần;                                             C. 20 lần;                             D. Không thực hiện.

Câu 10 : Trong câu lệnh lặp    for i :=1 to 20 do begin s:= s+i; end ;

câu lệnh gán được thực hiện bao nhiêu lần?

a) Không lần nào.                       b) 1 lần                       c) 2 lần                       d) 20 lần

Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:

A. 1 đơn vị                 B. 2 đơn vị                 C. 3 đơn vị                 D. 4 đơn vị
 

Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?

A. Khi biến đếm nhỏ hơn giá trị cuối.                B. Khi biến đếm bằng giá trị đầu.

C. Khi biến đếm bằng giá trị cuối.                      D. Khi biến đếm lớn hơn giá trị cuối.

Muốn sà vào lòng soái ca khóc 1 trận - Baozou Manhua meme - Meme Gấu trúc Trung Quốc | Meme Dump | Lục Lọi Meme | Cộng đồng meme trực tuyến

 

4
10 tháng 3 2022

tách ra thì mọi ng mới có động lực

10 tháng 3 2022

ét ô ét tiếp à

7 tháng 3 2023

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

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

readln

end.

uses crt;

var i,n,t:integer;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

begin

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

i:=i+1;

end;

write(t);

readln;

end.