Sử dụng lệnh lặp While...do viết đoạn chương trình pascal tương ứng với các bước trong thuật toán sau. Bước 1: S <-- 10, n <--1 Bước 2: Nếu S<=5, chuyển tới bươdc 4. Bước 3: S<-- S-n và quay lại bước 2. Bước 4: In ra màn hình giá trị của biến S và kết thúc thuật toán. (giúp mình lẹ với ạ :(()
2 câu trả lời
* Viết đoạn chương trình tương ứng :
S := 10; n := 1;
while S > 5 do S := S - n;
writeln('Gia tri S = ', S);
* Viết chương trình :
var n, S : byte;
begin
S := 10; n := 1;
while S > 5 do S := S - n;
writeln('Gia tri S = ', S);
readln
end.
- Chương trình tương ứng :
uses crt;
var n, S : integer;
begin
clrscr;
S := 10; n := 1;
while S > 5 do S := S - n;
writeln('S = ', S);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
