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.

14 tháng 11 2021

êfefefwfefeefffundefined

14 tháng 11 2021

???????????/

8 tháng 12 2017

tất cả các câu đều là s:=s+i hay s:=s+1/sqr(i)..vân vân bạn ạ

9 tháng 12 2017

ko dc bạn ak

11 tháng 4 2019

chỗ a,a,a,...,a sửa thành a0,a1,a2,...,an nhé

11 tháng 4 2019

Lời giải :

program hotrotinhoc ;

var dathuc,n,x,i : integer ;

begin

write('Nhap gia tri cua n='); readln(n);

dathuc := 0;

for a:= 1 to n do

for x:= 1 to n do dathuc:= dathuc+a*(x*x) ;

write('P(x)=',dathuc);

readln

end.

25 tháng 10 2016

Câu 1 :

a) (a+b)*(a+b)*(d+e)

b) a*x*x+b*x*x+c*x

Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?

Câu 3:

Uses crt;

Var S,a,b:real;

Begin

clrscr;

Writeln('Nhap chieu dai a = '); Readln(a);

Writeln('Nhap chieu rong b = '); Readln(b);

S := a*b;

Write('Dien tich hinh chu nhat la ', S );

Readln;

End.

25 tháng 10 2016

xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal

 

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán a. In ra các phần tử là số nguyên tố của dãy b. Tính ƯCLN của tất cả các phần tử của dãy c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann d. Sắp xếp và in ra dãy sau sắp xếp 2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho...
Đọc tiếp

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán

a. In ra các phần tử là số nguyên tố của dãy

b. Tính ƯCLN của tất cả các phần tử của dãy

c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann

d. Sắp xếp và in ra dãy sau sắp xếp

2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho ƯCLN

3. Viết chương trình con tính xy với x,y là 2 stn được nhập từ bàn phím

4. Viết chương trình con tính giai thừa của n với n stn được nhập từ bàn phím

5. Viết chương trình, thuật toán tìm số hoàn chỉnh, số chính phương, số nguyên tố và BCNN

6. Nhập giá trị của mảng chia hết cho 3 và 5. Sắp xếp các phần tử chia hết cho 3 và 5 theo chiều tăng dần

7. Nhập dữ liệu cho các phần tử của mảng và đưa ra màn hình mảng vừa nhận. Tính tổng của các giá trị của các phần tử tính từ các phần tử lẻ đến số lượng các phần tử lẻ

8. Viết chương trình dùng câu lệnh repeat until Tính tổng của \(A=\dfrac{1}{1\cdot3}+\dfrac{1}{2\cdot4}+...+\dfrac{1}{n\left(n+2\right)}\)

9. Viết chương trình tính hàm \(e^x=1+x+\dfrac{x^2}{2!}+....+\dfrac{x^n}{n!}\)

10. Viết chương trình tính an với a,n được nhập từ bàn phím

Các Bn viết đầy đủ thuật toán, chương trình giúp Mk nhé

1
23 tháng 3 2018

dài thế thì ai rảnh mà làm

30 tháng 10 2019

đề thi khảo sát hsg trường thôi mà mn

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

17 tháng 9 2017

@phynit; @Toshiro Kiyoshi; @Tú Quyên; @Aki Tsuki; @Ngân Hải; @Hà Ngân Hà; @Võ Đông Anh Tuấn;

17 tháng 9 2017

Em còn không hiểu cá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.