Question

Viết chương trình tính tổng 50 số tự nhiên đầu tiên S= 1+2+3+4+…..+50

Answer 1

Câu hỏi của Xuân Thành - Tin học lớp 8 | Học trực tuyến

Answer 2

uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

for i:=1 to 50 do

s:=s+i;

writeln('S=',s);

readln;

end.

Answer 3

Source: https://ideone.com/prk2gt (pascal)

Chúc bạn học tốt nha

Answer 4

program tinh_tong;

uses crt;

vaari,n:interger

S:longint;

begin

n:50; S=1;

for i:=1 to 50 do S:= s+i;

write(' tong cua ',n,' so tu nhien dau tien la ',S);

readln

end.

chúc bạn học tốt!

Answer 5

var i,s:integer;

begin

s:0;

for i:=1 to 50 do s:=s+i;

write('Tong:',S);

readln;

end

bạn có thể dùng câu này ngắn hơn!