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.

3 tháng 3 2022

Bạn gõ lại cho rõ đề nhé, nếu điều kiện của vòng lặp while do là s=6 thì nó không thực hiện vì ban đầu đề là s=4

20 tháng 3 2022

i = 1 < 5 ĐÚNG => s= 0+1 = 1; i= 1 + 1 = 2;

i = 2 < 5 ĐÚNG => s = 1 + 1 = 2 ; i = 2 + 1 = 3;

i = 3 < 5 ĐÚNG => s = 2 + 1 = 3 ; i = 3 + 1 = 4;

i = 4 < 5 ĐÚNG => s = 3 + 1 = 4 ; i = 4 + 1 = 5;

i = 5 = 5 ĐÚNG => s = 4 + 1 = 5 ; i = 5 + 1 = 6;

i = 6 < 5 sai => ket thuc vòng lap

Vậy kết quả S = 5

Điều kiện là s<=10

Câu lệnh là i:=i+1; s:=s+i;

2 tháng 3 2020

thêm câu này nữa mn ạ:

Câu lệnh For i:= 3 to 10 do begin write(i); end; khi thực hiện xong sẽ viết ra số 13 7 10 14
2 tháng 3 2020

câu cuối ạ Cho câu lệnh sau: s:=0; For i:=1 to 5 do if i mod 2 = 0 then s:=s+i else s:= s+i; cho biết kết quả s ?

a: S=35

b: S=62

c: S=32

16 tháng 3 2023

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

16 tháng 3 2023

:v

3 tháng 4 2022

PROGRAM Ten_KTGK_DTNT_Buon_Ho;

VAR i: Real;

S: integer;

Begin

S := 0;

For i := 1 To 20 Do

S:= S+i;

Write (‘Tong S =’ , S);

End.