Những câu hỏi liên quan
Nguyễn Mai Anh Đào
Xem chi tiết
Phía sau một cô gái
7 tháng 3 2023 lúc 20:40

program tong_100_so_tu_nhien;

uses crt;

var i, S: integer;

begin

      S := 0;

      for i := 1 to 100 do

            S := S + i;

      writeln('Tong cua 100 so tu nhien dau tien la ', S);

      readln;

end.

 

 

  
Bình luận (0)
Kiều Vũ Linh
7 tháng 3 2023 lúc 21:11

Var i,s:integer;

Begin

i:=1;

s:=0;

While i<=100 do

Begin

s:=s+i;

i:=i+1;

End;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)
Huỳnh Hoài Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:23

uses crt;

var i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

i:=1;

t:=0;

while i<=n do 

begin

if i mod 2=0 then t:=t+i;

i:=i+1;

end;

write(t);

readln;

end.

Bình luận (0)
huyokkkkk
Xem chi tiết
Thảo Vânn
Xem chi tiết
★゚°☆ Trung_Phan☆° ゚★
3 tháng 3 2021 lúc 20:31

undefined

Bình luận (6)
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 21:17

uses crt;

var i:integer;

begin

clrscr;

i:=1;

while i<=10 do 

  begin

if i mod 2=1 then write(i:4);

i:=i+1;

end;

readln;

end.

Bình luận (0)
nguyenhoang
Xem chi tiết
Lê Nguyễn Thanh Quân
Xem chi tiết
M1014-AWM
27 tháng 3 2021 lúc 17:16


program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

 

Bình luận (1)
nguyễn an phát
27 tháng 3 2021 lúc 20:35

program tinhtong;

uses crt;

var i,n,t:longint;

a:array[1..100]of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

t:=0;i:=1;

repeat

t:=t+i;

i:=i+1;

until i=n;

writeln('tong cua ca so tren la:',t);

writeln('trung binh cua cac so tren la:',t/n);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
27 tháng 3 2021 lúc 20:51

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac so la: ',t);

writeln('Trung binh cong cac so la: ',t/n:4:2);

readln;

end.

Bình luận (0)
Vũ khang
Xem chi tiết
Minh Lệ
9 tháng 5 2023 lúc 18:55

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap n: '); readln(n);

s:=0;

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

write('S = ',s);

readln

end.

Bình luận (0)
Mỹ Trâm Nguyễn Thị
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 5 2020 lúc 21:38

1:

uses crt;

var i,t:integer;

s:real;

begin

clrscr;

i:=0; t:=0; s:=1;

while i<=10 do

begin

i:=i+1;

t:=t+i;

s:=s*i;

end;

writeln('Tong cua 10 so tu nhien dau tien la: ',t);

writeln('Tich cua 10 so tu nhien dau tien la: ',s:0:0);

readln;

end.

2:

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 10 do

write(i:4);

readln;

end.

Bình luận (0)
Hồ Duy
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 4 2020 lúc 21:12

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

s:=0; i:=1;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

writeln(s);

readln;

end.

Bình luận (0)