K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

16 tháng 3 2023

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

19 tháng 3 2023

cô cho đề như thế, mà mình bt làm r

 

11 tháng 4 2022

.

11 tháng 4 2022

.

13 tháng 3 2023

Program HOC24;

var i,n,t: integer;

begin

t:=0; i:=1;

while t<=500 do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

22 tháng 3 2022

Tham khảo theo link nhé bạn: https://hoc24.vn/hoi-dap/tim-kiem?id=603125&q=t%C3%ADnh%20t%E1%BB%95ng%20c%C3%A1c%20s%E1%BB%91%20t%E1%BB%B1%20nhi%C3%AAn%20t%E1%BB%AB%20100%20%C4%91%E1%BA%BFn%201000%20%28v%C3%B2ng%20l%E1%BA%B7p%20v%E1%BB%9Bi%20s%E1%BB%91%20l%E1%BA%B7p%20ch%C6%B0a%20bi%E1%BA%BFt%29

17 tháng 3 2022

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

ae nào giúp mình với ạ'

 

10 tháng 3 2023

Program HOC24;

Uses crt;

var i,j: integer;

j:=1; i:=0;

while(j<=50) do

begin

j:=j+1;

if(j mod 2=0) then i:=i+j;

end;

writeln(i);

readln;

end.

 

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

writeln(t);

readln;

end.

3 tháng 3 2023

n = int(input('Nhập số n lớn hơn 2: '))

tong = 0

i = 2

while i <= n:

       tong += i

       i += 1

print('Tổng các số từ 2 đến', n, 'là:', tong)