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.

11 tháng 1 2019

program bai1;

var i,n,s,t:longint;

function tt(a:longint):longint;

var i,s:longint;

begin

s:=1;

for i:=1 to a do

s:=s*a;

tt:=s;

end;

begin

write('N= ');readln(n);

s:=0;

for i:=1 to n do

begin

t:=tt(i);

s:=s+t;

end;

write('Tong la: ',t);

readln

end.

11 tháng 1 2019

haha,mình lộn:v

#include <bits/stdc++.h>

using namespace std;

long long s1,s2,s3,s4,i;

int main()

{

s1=0;

for (i=1; i<=100; i++) s1=s1+i*i;

s2=0;

for (i=1; i<=100; i++) if (i%2==1) s2+=i;

s3=0;

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

{

if (i%2==1) s3+=i*i;

else s3-=i*i;

}

s4=0;

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

{

if (i%2==1) s4+=i;

else s4-=i;

}

cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;

return 0;

}

program tinh_tong;

uses crt;

var a,i,n:integer;

s:real;

begin

clrscr

writeln ('Nhap a va n lan luot =');

readln(a,n);

s:=1;

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

writeln ('Tong s =',s);

readln

end.

30 tháng 1 2018

ủa pascal cho dùng ^ hả bạn

23 tháng 11 2017

Program bai1;

uses crt;
var i,x,a,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^a');
write('X=');readln(x);
write('a=');readln(a);
kq:=1;
for i:=1 to a do
kq:=kq*x;
writeln(x,'^',a,'=',kq:4);
readln;
end.

23 tháng 11 2017

bài 2:

Program bai2;

uses crt;

var n,i: integer;

s: real;

begin

clrscr;

write('nhap so n ='); readln(n);

s:=0;

for i:= 1 to n do

s:=s+exp(n*ln(i));

writeln('tong =',s :4:2);

readln;

end.

13 tháng 3 2019

Lời giải :

program hotrotinhoc ;

var i,n : integer ;

A: real ;

begin

write('nhap gia tri n='); readln(n);

A:=1;

for i:=1 to n do

A:=A*(1+1/(i*i));

write('Ket qua la',A);

Readln

end.

14 tháng 3 2019

var i,n:integer;

s:real;

begin

write('n=');readln(n);

s:=0;

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

write(s);

readln;

end.

16 tháng 1 2019

mik viết ct luôn nha bạn tự luận thuật toán vì bài này dễ

var d,i,n:integer;

begin

write('n=');readln(n);

d:=0;

for i:=1 to n do d:=d+(i*i);

writeln('Tong la: ',d);

readln;

end.

12 tháng 10 2019

s1= n*(n+1)/2
s2= (s1)^2
S3 ( giải = 500es)
1->M
1->A
0->Y
Y+A/M->Y: A/M->A : M+1->M
Ấn n lần kết quả là Y

12 tháng 10 2019

bạn có thể viết ct chi tiết cho mình được không

1 tháng 3 2020

program hotrotinhoc;

var tong: longint;

i,n: integer;

begin

readln(m);

tong:=0;

for i:=1 to m do

tong:=tong+(i*i);

write(tong);

readln

end.

1 tháng 3 2020

thanks

3 tháng 10 2019

program tinh_gia_tri_bieu_thuc;

uses crt;

var n,j:integer;

R:extended;

begin

clrscr;

R:=0;

write('Nhap so mu n=');readln(n);

for j:=1 to n do

R:=R+ exp(n*ln(j));

writeln('Gia tri cua R=',R:1:0);

end;

readln;

end.

3 tháng 10 2019

Bạn bỏ bớt 1 cái end ở dòng cuối đi cái end có dấu chấm phẩy theo sau ấy