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.

20 tháng 1 2019

var a,b,c,d:integer;

begin

write('cac so a,b,c,d lan luot la:');

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

for d:=0 to 9 do

if a*1000+b*100+c*10+d=a*a*a*a+b*b*b*b+c*c*c+d*d*d*d then write(a,',',b,',',c,',',d);

readln

end.

19 tháng 1 2019

rồi nhé cậu :)

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

 

17 tháng 11 2019

a) đúng

b) đúng

c) đúng

d) kết quả phụ thuộc vào biến x

nếu x<=1 thì đúng

ngược lại thì sai

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

Câu 1: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?A. 8a B. tamgiac C. program D. bai tapCâu 2: Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào?A. Ctrl + F9 B. Alt + F9 C. Ctrl + Shitf +F9 D. F9 Câu 3: Các thành phấn cơ bản của một ngôn ngữ lập trình là:A. Các từ khóa...
Đọc tiếp

Câu 1: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?

A. 8a B. tamgiac C. program D. bai tap

Câu 2: Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào?

A. Ctrl + F9 B. Alt + F9 C. Ctrl + Shitf +F9 D. F9

Câu 3: Các thành phấn cơ bản của một ngôn ngữ lập trình là:

A. Các từ khóa và tên. B. Bảng chữ cái và các từ khóa.

C. Bảng chữ cái, các từ khóa và tên. D. Bảng chữ cái và các quy tắc.

Câu 4: Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào?

A. (a*a + b)(1+c)(1 + c)(1 + c) B. (a.a + b)(1 + c)(1 + c)(1 + c)

C. (a*a + b)*(1 + c)*(1 + c)*(1 + c) D. (a2 + b)(1 + c)3

Câu 5: Trong Pascal, khai báo nào sau đây là đúng?

A. Var tb : real ; B. Var 4hs: integer ; C. Const x : real ; D. Var R = 30 ;

Câu 6: Trong Pascal, những tên có ý nghĩa được xác định từ trước và không được phép sử dụng cho mục đích khác thì được gọi là:

A. Tên có sẵn B. Tên riêng C. Từ khóa D. Biến

Câu 7: (5.0 điểm)

Viết chương trình nhập vào 2 số a, b từ bàn phím, tính trung bình cộng của hai số a, b và in kết quả ra màn hình.

Giúp mình với nha!

4
24 tháng 10 2016

1B 4C

2A 5A

3C 6C

7.

program TBC;

uses crt;

var a,b,tbc:real;

begin

clrscr;

write('nhap so a:');readln(a);

write('nhap so b:');readln(b);

tbc:=(a+b):2;

writeln('tbc cua hai so a va b la:',tbc:6:2);

readln;

end.

 

24 tháng 10 2016

dễ mà@@@
 

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

}

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

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

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.

21 tháng 2 2019

input: các số a,b,c

output: in a,b,c ra màn hình

program in;

var a,b,c:integer;

begin

write('cac so a,b,c lan luot la:');

for a:=1 to 9 do

for b:=1 to 9 do

for c:=1 to 9 do

if a*100+b*10+c=a*a*a+b*b*b+c*c*c then write(a,' ',b,' ',c);

readln

end.