sử dụng vồng lập While-.do-..Để việt chương trình tính tổng các số tự tự nhiên sao cho tổng đó nhất và lớn hơn 500

Question

sử dụng vồng lập While.....do......Để việt chương trình tính tổng các số tự tự nhiên sao cho tổng đó nhất và lớn hơn 500

phuongthuy · Answer

Program BTH;

uses crt;

var x,n: integer;

Begin

clrscr;

n:=1, x:=1;

While x<=500 do;

begin;

n:=n+1;

x:=x+1;

end;

Write ( ‘tong la’,x,’va can’,n,’so’)

Readln;

end.

maingoc · Answer

program tinhtong;

uses crt;

var s,n:integer;

begin

clrscr;

n:=1; s:=1;

while s<=500 do

begin

n:=n+1;

S:=S+n;

end;

write(‘Tong la ‘,s,’ va can ‘,n,’ so’);

readln;

end.

0 bình luận về “sử dụng vồng lập While-.do-..Để việt chương trình tính tổng các số tự tự nhiên sao cho tổng đó nhất và lớn hơn 500”