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.

6 tháng 3 2023

a) Thuật toán này sẽ thực hiện 3 vòng lặp và kết thúc với giá trị S = 9

b) Chương trình Pascal:

program vidu;

var

      n, s: integer;

begin

      n := 2;

      s := 0;

      while n < 5 do

      begin

            n := n + 1;

            s := s + n;

      end;

      writeln('S =', s);

end.

14 tháng 3 2023

thanks

 

5 tháng 4 2017

Var i,n,s:integer;

begin

readln(s,n);

s:=0;

n:=0;

if n <= 5 then n:=n+1;

s:=s+n;

writeln(s);

readln;

end.

2 tháng 5 2017

uses crt;

var n,s:integer;

begin

clrscr;

s:=0; n:=0;

while n<5 do

begin

n:=n+1;

s:=s+n;

end;

write('s=',s);

readln;

end.

banh

13 tháng 12 2019

uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/i;
inc(i);
end;
writeln('tong la: ',s:4:2);
readln;
end.

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

i:=1;

while s<=n do

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.

3 tháng 5 2019

uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;i:=0;
i:=i+1;
while i>=n do
begin
s:=s+i;
i:=i+1;
end;
{ write(.........); }
readln
end.

P/S: Vì đề bài chưa cho biết in ra gì nên mình bỏ trống phần write nha bạn

Câu 1:

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

Giải thích ý nghĩa:

-Biến đếm: Thường là biến kiểu nguyên

-Giá trị đầu, giá trị cuối: thường là một số nguyên

-Câu lệnh: có thể là câu lệnh đơn hoặc câu lệnh ghép(phải bao bọc bởi begin và end)

Câu 2:

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do

begin

i:=i+1;

s:=s+i;

end;

writeln('Tong la: ',s);

readln;

end.

a: Thuật toán thực hiện công việc tính tổng các số dương trong dãy n số nguyên

5 tháng 5 2023

Var n,s:integer;

Begin

n:=0;

s:=0;

While s<=1000 do

Begin

n:=n+1;

s:=s+n;

End;

Write('Tong la ',s);

Readln

End.

s=1+2+3+4=10