Những câu hỏi liên quan
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.

Bình luận (0)
Mai Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 22:49

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

i:=0;

repeat

i:=i+1;

s:=s+i;

until s>1000;

writeln(s);

if (s>1500) then writeln('co')

else writeln('khong');

readln;

end.

Bình luận (0)
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.

Bình luận (0)
Trang
Xem chi tiết
Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:21

program TongSn;
var
  N, S: integer;
begin
  S := 0;
  N := 1;
  while S <= 1000 do
  begin
    S := S + N;
    N := N + 1;
  end;
  writeln('So tu nhien can cong de tong Sn vuot qua 1000 la: ', N-1);
  writeln('Tong S', N-1, ' la: ', S);
end.

 

Bình luận (0)
nguyên Nông
Xem chi tiết
TNhi
Xem chi tiết
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;

}

Bình luận (0)
giao nguyễn
Xem chi tiết
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; 

Bình luận (0)