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.

15 tháng 3 2020

Câu 1:

program an_danh;

uses crt;

var tong,n,i: integer;

begin

clrscr;

tong:= 0;

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

for i:= 1 to n do tong:= tong + i;

write('Tong tu 1 den ',n,' = ',tong);

readln

end.

Câu 2:

program an_danh;

uses crt;

var tong,i: integer;

begin

clrscr;

tong:= 0;

for i:= 1 to 200 do

tong:= tong + i;

write('Tong 200 so nguyen dau tien: ',tong);

readln

end.

Câu 3:

program an_danh;

uses crt;

var tich:real;

i:integer;

begin

clrscr;

tich:= 1;

for i:= 1 to 30 do

tich:= tich * i;

write('Tich 30 so nguyen dau tien: ',tich:0:0);

readln

end.

Câu 4:

program an_danh;

uses crt;

var gt:real;

i,n: integer;

begin

clrscr;

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

gt:= 1;

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

write(n,'! = ',gt:0:0);

readln

end.

Câu 5:

program an_danh;

uses crt;

var x,n,i:integer;

kq:real;

begin

clrscr;

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

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

kq:= x;

for i:= 2 to n do kq:= kq * x;

write(x,' mu ',n,' = ',kq:0:0);

readln

end.

Câu 1:

uses crt;
var n,i,s:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('tong S=',s);
readln;
end.

Câu 2:

uses crt;
var i,s:longint;
begin
clrscr;
s:=0;
for i:=1 to 200 do
s:=s+i;
writeln('tong 200 so nguyen dau tien la: ',s);
readln;
end.

Câu 3:

uses crt;
var i:integer;
s:real;
begin
clrscr;
s:=1;
for i:=1 to 30 do
s:=s*i;
writeln(s:4:0);
readln;
end.

Câu 4:

uses crt;
var n:qword;
i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:4:0);
readln;
end.

Câu 5:

uses crt;
var n,x,i:longint;
lt:real;
begin
clrscr;
write('co so x='); readln(x);
write('so mu n='); readln(n);
if n>=0 then
begin
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt:4:0);
end
else writeln('vui long nhap lai so mu khong am');
readln;
end.

1:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a+b;

return 0;

}

2:

#include <bits/stdc++.h>

using namespace std;

double s,r;

int main()

{

cin>>r;

s=r*r*pi;

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

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

s=0;

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

cout<<s;

return 0;

}

19 tháng 1 2022

Var s,i,n:longint;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

s:=s+i*i;

Write('Tong la ',s);

Readln;

End.

D
datcoder
CTVVIP
26 tháng 3

#include <stdio.h>

int main(){

    int n;

    scanf("%d",&n);

    long t=0; int i,j;

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

        int c=0;

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

            if (i%j==0) c++;

        if (c==0) t=t+i;

        }

printf("%d",t);

return 0;

}

D
datcoder
CTVVIP
9 tháng 1

Bạn trình bày lại đề bài rõ hơn nha, đề đọc rất khó hiểu ấy.

18 tháng 10 2021

Câu 3: 

#include <bits/stdc++.h>

using namepsace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

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

return 0;

}

18 tháng 10 2021

Câu 3: 

#include <bits/stdc++.h>

using namepsace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

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

return 0;

}

31 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int A,i,n;

int main()

{

cin>>n;

A=0;

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

{

A=A+i;

}

cout<<"Tong la: "<<A;

Return 0;

}

14 tháng 4 2023

địt mẹ m viếtttt nguuuu như lồnnnnnn

đẻ đau l

#include <bits/stdc++.h>

using namespace std;

long long i,n,t;

int main()

{

cin>>n;

t=0;

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

cout<<t;

return 0;

}

18 tháng 10 2021

Câu 3:

#include <bits/stdc++.h>

using namepsace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

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

return 0;

}