Question

viết chương trình tính tổng S=1+3+5+...+99

Answer 1

Đây mới đúng :))

program bai1;

uses crt;

var i,n : integer;

s: real;

begin

clrscr;

s:=0;

for i:= 1 to 99 do

s:=s+i;

writeln('tong =' ,s);

readln

end.

Answer 2

tham khảo nè: viết chương trình pascal tính tổng S=1+2+3+...+N? | Yahoo Hỏi & Đáp

Answer 3

bạn có cách giải chi tiết ko?

Answer 4

program bai1;

uses crt;

var i,n : integer;

s: real;

begin

clrscr;

s:=0;

for i:= 1 to n do

s:=s+i;

writeln('tong =' ,s);

readln

end.

Answer 5

cách này của mk đã lược bỏ đi vài phần k cần thiết

program ct;

var s,i,n: integer;

begin

readln(s,i);

s:= 0;

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

readln(n)

end.

mk ch pt dúng hay sai nha!!!

đúng thì chọn nha!!

Answer 6

đây mới đúng nè dương

var i:integer;

s:real;

begin

s:=0;

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

write(' Tong la: ',s);

readln;

end.

Answer 7

copy mà đé* đọc kĩ đề. đây mới đúng nè

program nts;
uses crt;
var i,s:integer;
begin
clrscr;
for i:=1 to 99 do
if i mod 2 =1 then s:=s+i;
write('tong=',s);
readln;
end.

Answer 8

Program ltd;

ues crt;

var s,x:integer;

begin clrscr;

x:=1:s:=0

while(x<100)do

begin

s:=s+x

x:=x+2 

end;

writeln('tong s la' ,s);

readln;

end.