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.

23 tháng 2 2023

Var s,i:integer;

Begin

s:=0;

i:=0;

While S<1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n la ',i);

Readln;

End.

24 tháng 2 2023

camonn ạvui

29 tháng 4 2022

Var i,s:integer;

Begin

i:=0;

While s<=1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n nho nhat la ',i);

Readln;

End.

17 tháng 3 2021

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. 

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.

21 tháng 3 2023

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.

 

Mình sẽ tạm hiểu đề này là viết chương trình in ra các số nguyên tố lớn hơn hoặc bằng n nha

#include <bits/stdc++.h>

using namespace std;

int n,m,i;

//chuongtrinhcon

bool ktnt(int n)

if (n<2) return false; 

for (int i=2; i*i<=n; i++) 

if (n%i==0) return false; 

return true;

}

int main()

{

cin>>n;

cout<<"Cac so nguyen to nho hon bang n thoa man yeu cau la"<<endl;

for (int i=2; i<=n; i++) 

if (ktnt(i)) cout<<i<<" ";

}

21 tháng 2 2022

giúp mình với

 

21 tháng 2 2022

cảm ơn

 

19 tháng 3 2023

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

19 tháng 3 2023

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.