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.

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.

 

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.

2 tháng 6 2018

29 tháng 3 2019

1) var n,sum;

begin

while sum<=1000 do

begin

n:=n+1;

sum:=sum+n;

end;

write('n=',n);

end.

bài thi bên mình không readln đoạn cuối nha bạn, bạn muốn thì thêm vào nha

29 tháng 3 2019

5)var i,n,tong:longint;

const tich:longint=1;

begin

read(n);

for i:=1 to n do

begin

tong:=tong+i;

tich:=tich*i;

end;

write('tong=',tong);

write('tich=',tich);

end.

11 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

double n,a,d;

int main()

{

cin>>n>>a>>d;

cout<<fixed<<setprecision(2)<<n*(a+d)/2;

return 0;

}

6 tháng 4 2022

lỗi r bn

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