Những câu hỏi liên quan
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

hoho209
Xem chi tiết
Kiều Vũ Linh
26 tháng 3 2021 lúc 10:30

Var i, n,s: longint;

Begin

Write('Nhap so luong so le can tinh tong ');readln(n);

For i:=1 to n do

if i mod 2 <> 0 then s:=s+i;

write('Tong cua ',n,' so le dau tien la ',s);

readln;

end.

꧁༺β£ɑℭƙ £❍ζʊꜱ༻꧂
26 tháng 3 2021 lúc 8:43

Program tinhtong;

uses crt;

var A, N, i: integer;

begin

clrscr;

write ('nhap N = '); Readln (N);

A:=0;

for i:=1 to N do A:= A+(i*2-1);

writeln ('tong = ',A);

readln;

End.

Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 16:06

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to 2*n do 

  if i mod 2=1 then s:=s+i;

writeln(s);

readln;

end.

Kiet Quoc
Xem chi tiết
Minh Lệ
21 tháng 10 2021 lúc 16:29

Program HOC24;

var n,i: integer;

t: longint;

Begin

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

t:=0;

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

if t mod 2=0 then write('Tong la so chan') else write('Tong la so le');

readln

end.

krt-ttt
25 tháng 10 2021 lúc 20:47

n = int(input('nhap n'))

s = 0

for i in range(0,n):

     s = s+i

print('tong cua day tu 0 den '+n+'la'+s)

if s%2 == 0:

     print('s la so chan')

else:

     print('s la so le')

 

 

     

Elizabeth
Xem chi tiết
Lê Minh Hiếu
Xem chi tiết
Minh Lệ
20 tháng 4 2023 lúc 9:31

loading...  

Ung Tấn Thảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 7:30

Uses crt;

Var i,t,n:integer;

Begin

Clrscr;

Write('n='); readln(n);

T:=0;

For i:=1 to 2*n do

If i mod 2=1 then t:=t+i;

Writeln(t);

Readln;

End.

Ung Tấn Thảo
8 tháng 4 2021 lúc 7:07

Giải giúp mk với mai mk thể rồi mk cảm ơn nhiều

Uses crt;

Var i,t,n:integer;

Begin

Clrscr;

Write('n='); readln(n);

T:=0;

For i:=1 to 2*n do

If i mod 2=1 then t:=t+i;

Writeln(t);

Readln;

End.

Hoàng Đình Đức Duy
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 2 2022 lúc 15:25

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

  t:=t+2*i-1;

writeln(t);

readln;

end.

Ngọc Trâm
Xem chi tiết
tuan manh
12 tháng 3 2023 lúc 18:22

Trúc Bảo
Xem chi tiết