Sử dụng vòng lặp while...do viết chương trình Pascal tính tổng n số tự nhiên đầu tiên

Viết chương trình sử dụng vòng lặp While …do để tính tổng các số chẳn nhỏ hơn n hoặc bằng n (n được nhập từ bàn phím)

`pascal`

uses crt;
var n,s,i:longint;
begin
clrscr;
readln(n);
i:=1;
s:=0;
while i<=n do
begin
if i mod 2=0 then s:=s+i;
i:=i+1;
end;
writeln(s);
readln
end.

`python`

n=int(input())
s=0
i=1
while (i<=n):
    if i%2==0:
        s=s+i
    i+=1
print(s)

Viết chương trình viết kiểm tra số n vừa nhập vào có phải là số lẻ hay không

`pascal`

var n:longint;
begin
readln(n);
if n mod 2=1 then writeln(n,' la so le');
readln
end.

`python`

n=int(input())
if n%2==1:
    print(n," là số lẽ ")

Ở bài 9 sách giáo khoa Tin học 11, học sinh đã được tìm hiểu câu lệnh lặp với số lần biết trước (For – do) và lặp với số lần chưa biết trước (While – do). Bài viết xin chia sẻ với các em cách chuyển đổi từ câu lệnh For – do sang While – do (cách chuyển đổi ngược lại không phải lúc nào cũng thực hiện được)

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

• Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ (10 ≤ A, M  ≤ 103).
• Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

• Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát (mỗi số cách nhau một ký tự trắng).
• Hàng 2: lần lượt là số áo, số mũ còn thừa.

23/10/2022 |   0 Trả lời