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.

3 tháng 5 2023

Lời giải :

program hotrotinhoc ;

var t,s10: longint ;

i,j,x: integer;

begin

write('nhap gia tri cua x='); readln(x);

for i:=1 to 10 do

begin

t:=1;

for j:=1 to i do t:=t*x*x;

if i mod 2=0 then s10:=s10-t else s10:=s10+t;

end;

write('Ket qua: ',s10);

readln

end.

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.

#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;

}

22 tháng 2 2019

Bài  4. Sử dụng biến trong chương trình

11 tháng 4 2019

Bạn phải cho biết giá trị nào là giá trị đếm và giá trị nào là giá trị nhập nựa

17 tháng 10 2020

a) sqr(sqr(sqr(x))+3)-2/(sqr(x)*x)+sqr(2x+1)

b) a*x*x*x+3*sqr(a)*x+3*a*sqr(x)+a*x+c

18 tháng 10 2020

​Spr là gì vj

18 tháng 11 2017

\(x^4+x^3+x^2+2\)

\(=x^4+2x^3-x^3-2x^2+2x^2+x^2+2x-2x+2\)

\(=\left(x^4+2x^3+2x^2\right)-\left(x^3+2x^2+2x\right)+\left(x^2+2x+2\right)\)

\(=x^2\left(x^2+2x+2\right)-x\left(x^2+2x+2\right)+\left(x^2+2x+2\right)\)

\(=\left(x^2+2x+2\right)\left(x^2-x+1\right)\)

31 tháng 12 2016

program P;

var x, y, P: integer;

begin

writeln('nhap x va y = ');

readln(x,y);

P:=x*x+y*y+x*y;

writeln('gia tri bieu thuc = ',P);

readln

end.

Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.

9 tháng 2 2017

Mik

ko biết

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.