Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lê Thị Như Ngọc
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 23:10

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.

Yên Đặng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:28

uses crt;

var n,i,t:integer;

begin

n:=0;

t:=0;

repeat

n:=n+2;

t:=t+n;

until t>69;

writeln(n);

writeln(t);

readln;

end.

gái xinh nè
Xem chi tiết
nguyễn an phát
17 tháng 3 2021 lúc 19:19

program tim_n;
uses crt;
var tong,n,i:word;
begin
  clrscr;
  n:=1;tong:=0;
  while tong<500 do
  begin
    for i:=1 to n do tong:=tong+i;
    if tong<500 then begin tong:=0;n:=n+1;end
    else n:=n-1;
  end;
  write('so n thoa man dieu kien la:',n);
  readln;
end. 

Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:04

uses crt;

var i,n,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to 500 do 

begin  

t:=t+i;

if t>500 then 

begin

writeln(i);

break;

end;

end;

readln;

end.

Lâm Nguyễn Kha
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2021 lúc 19:45

uses crt;

var t,n:integer;

begin

clrscr;

t:=0;

n:=0;

while t<=10 do 

  begin

n:=n+1;

t:=t+n;

end;

writeln(t);

readln;

end.

Quỳnh Như 8a4
Xem chi tiết
Kiều Vũ Linh
12 tháng 5 2022 lúc 9:14

Var n,s:integer;

Begin

n:=0;

While s<=1000 do

begin

n:=n+1;

s:=s+n;

End;

Write('Tong dau tien lon hon 1000 la ',s);

Readln;

End.

Huỳnh Kim Ngân
12 tháng 5 2022 lúc 8:42

Tham khảo link: https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cua-n-so-tu-nhien-dau-tien-sao-cho-tong-nho-hon-hoac-bang-1000giup-minh-voi-thu-6-thi-roi.180444032537

Lăng Kỳ Khả
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 1 2022 lúc 13:53

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

if (i%3==0) s=s+i;

cout<<s;

return 0;

}

Lê Trần Bội Bội
Xem chi tiết
Bao Truong
30 tháng 12 2020 lúc 19:02

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

Lê Trần Bội Bội
Xem chi tiết
huỳnh thị ngọc ngân
11 tháng 11 2016 lúc 18:51

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

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

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

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

writeln('tong cua s=',s);

readln

end.

 

 

Phuong Nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 2 2021 lúc 9:17

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 20 do 

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

writeln('Tong cac so chan trong khoang 20 so tu nhien dau tien la: ',s);

readln;

end.