Bài 6. Câu lệnh điều kiện

PP

Viết chương trình tính tổng của số tự nhiên từ 10-50 sử dụng lệnh while do

HN
4 tháng 5 2018 lúc 21:39

program Tong;

uses crt;

var i, n, S: integer;

begin

clrscr;

S:=0; i:=10;

while i<=50 do begin S:=S+i; i:=i+1 end;

writeln('Tong so cac so tu nhien tu 10 den 50 la', S);

readln

end.

Bình luận (1)

Các câu hỏi tương tự
TB
Xem chi tiết
VD
Xem chi tiết
MD
Xem chi tiết
NN
Xem chi tiết
NT
Xem chi tiết
HV
Xem chi tiết
HN
Xem chi tiết
SX
Xem chi tiết
GT
Xem chi tiết