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.

#include <bits/stdc++.h>

using namespace std;

long long i,s;

int main()

{

s=0;

for (i=1; i<=100; i++) s+=i;

cout<<s;

return 0;

}

10 tháng 3 2022

https://hoc247.net/hoi-dap/toan-6/tinh-1-1-2-1-3-1-4-1-100-faq172796.html

22 tháng 2 2022

-Python:

undefined

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+i*i;

writeln(s);

readln;

end.

5 tháng 4 2023

a) 

program Tinh_S;

var

     n, S: integer;

     i: integer;

begin

     write('Nhap gia tri cua n (30 <= n <= 90): ');

     readln(n);

     S := 0;

     if (n >= 30) and (n <= 90) then

     begin

          for i := 1 to n do

               S := S + i;

          writeln('Gia tri cua bieu thuc S la: ', S);

     end

     else

          writeln('Gia tri cua n khong hop le!');

     readln;

end.

b) 

program Tim_n;

var

     n, S: integer;

begin

     for n := 30 to 90 do

     begin

          S := 0;

          for i := 1 to n do

               S := S + i;

          if S > 1000 then

          begin

               writeln('Gia tri cua n la: ', n);

               break;

          end;

     end;

     readln;

end.

5 tháng 4 2023

a)program Tinh_S;
var n,s,i:longint;
begin
  s := 0;
  write('Nhap n (30 <= n <= 90): ');
  readln(n);
  for i := 1 to n do
  begin
    s := s + i;
  end;
  writeln('Tong S la: ', s);
end.

b) program Tim_N;
var n,s,i: longint;
begin
  s := 0;
  n := 1;
  while s <= 1000 do
  begin
    s := s + n;
    n := n + 1;
  end;
  writeln('Gia tri n can tim la: ', n-1);
end.

 

 

21 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<fixed<<setprecision(2)<<1/(a*1.0+b*1.0);

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int n,i;

double s;

int main()

{

cin>>n;

s=1;

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

{

if (i%2==0) s=s+1/(i*1.0);

else s=s-1/(i*1.0);

}

cout<<fixed<<setprecison(2)<<s;

return 0;

}

1 tháng 7 2023

var i, so: integer;

begin
  writeln('Nhap vao 10 so tu nhien:');
  for i := 1 to 10 do
  begin
    write('So thu ', i, ': ');
    readln(so);
    writeln('So vua nhap la: ', so);
  end;
  readln;
end.

15 tháng 5 2023

Program HOC24;

var i: byte;

s: longint;

begin

s:=1;

for i:=1 to 100 do s:=s*i;

write('S = ',s);

readln

end.

16 tháng 5 2023

var i:integer;

s: longint;

begin

s:=1;

for i:=2 to 100 do s:=s*i;

write('S = ',s);

readln

end.

13 tháng 3 2023

Uses crt;

var i,n,y: integer;

begin clrscr;

readln(n);

for i:=1 to n do s:=i*i;

Writeln(s);

readln;

end.

13 tháng 3 2023

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=0;

for i:=1 to n do s:=s+sqr(i);

write('S= ' ,s);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

for (i=1; i<=20; i++) t=t+i;

cout<<2*t;

return 0;

}

20 tháng 1 2022

Program HOC24;

var i,t: integer;

begin

t:=0;

for i:=1 to 20 do t:=t+i*2;

write('Ket qua la: ',t);

readln

end.