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
Nguyễn minh Hoàng
Xem chi tiết
nguyên Nông
Xem chi tiết
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.

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.

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.

Lương Gia Bảo
Xem chi tiết
HT.Phong (9A5)
24 tháng 3 2023 lúc 5:54

Uses crt;

var

begin clrscr;

k:=1;

s:=0;

while (s<700) do begin

k:=k+1

s:=s+k;

end;

writeln(s,' ',k);

readln;

end; 

Yna Lolipop
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 3 2022 lúc 23:11

1:

#include <bits/stdc++.h>

using namespace std;

long long dem,i,n,x;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x%3==0) t+=x;

}

cout<<t;

return 0;

}

trần hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 4 2022 lúc 7:14

uses crt;

var n:string;

i,ln,nn,t,s,x,y:integer;

begin

clrscr;

readln(n);

writeln(length(n));

ln:=0;

nn:=9;

for i:=1 to length(n) do 

begin

val(n[i],x,y);

if ln<x then ln:=x;

if nn>x then nn:=x;

end;

writeln(ln);

writeln(nn);

t:=0;

s:=1;

for i:=1 to length(n) do 

begin

val(n[i],x,y);

t:=t+x;

s:=s*x;

end;

writeln(t);

writeln(s);

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