viết chương trình cho các bài toán sau
a) Tính tổng 50 số tự nhiên đầu tiên sử dụng câu lênh while ….do
viết chương trình cho các bài toán sau a) Tính tổng 50 số tự nhiên đầu tiên sử dụng câu lênh while -do
By Serenity
By Serenity
viết chương trình cho các bài toán sau
a) Tính tổng 50 số tự nhiên đầu tiên sử dụng câu lênh while ….do
uses crt;
var i,s:longint;
begin
clrscr;
i:=0;
while i<=50 do
begin
inc(i);
s:=s+i;
end;
writeln(‘S= ‘,s);
readln
end.
program Tinhtong;
use crt ;
var `i ; n ; S` : integer ;
begin
`S : = 0 ; i = 1;`
while `i<=50` do begin `S: = S + i ; i: = i+1` end ;
Writeln(`Tong 50 so tu nhien dau tien la : ‘ ,S );
readln;
end.