Question

a) Viết chương trình tính tổng từ 20 – 50

b) Viết chương trình tính tổng từ a – b, với a, b nhập từ bàn phím. Yêu cầu: a
không phải thông báo lỗi.

cứu tôi 2 câu này sài lệnh lặp

Answer 1

Answer:

Program viet_chuong_trinh_tinh_tong;

Uses Crt;

Var i,s:integer;

Begin

Clrscr;

i:=20;

While (i>=20) and (i<=50) do

Begin

s:=s+i;

i:=i+2;

End;

Writeln(S);

Readln;

End.

Explanation: