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.

25 tháng 1 2017

program giatriP ;

var P,a,b,c,d:real ;

begin

writeln('nhap a, b, c, d=');

readln(a, b, c, d);

P:=a*a+b*b-(c+d)*(c+d);

writeln('P= ');

readln

end.

15 tháng 11 2021

uses crt;

begin

clrscr;

writeln(10+4*sqr(15-10)/6+4);

readln;

end.

11 tháng 11 2021

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

Câu 1: chuyển biểu thức toán học sang pascal:                 a.                  b. 15.(4 + 30 + 12)                 c. (a+b)2.(d+e)3                 d. ax2 + bx +2c Câu 2: viết chương trình tính tích 2 số nguyên được nhập từ bàn phím.Câu 3: viết chương trình tính tổng 2 sô nguyên được nhập từ bàn phím.Câu 4: viết chương trình nhập vào 2 số nguyên a, b sau đó in a, b trước và sau khi hoán đổi vị trí ra màn hình.Câu 5: viết chương trình...
Đọc tiếp

Câu 1: chuyển biểu thức toán học sang pascal:

                 a.

                 b. 15.(4 + 30 + 12)

                 c. (a+b)2.(d+e)3

                 d. ax2 + bx +2c

 

Câu 2: viết chương trình tính tích 2 số nguyên được nhập từ bàn phím.

Câu 3: viết chương trình tính tổng 2 sô nguyên được nhập từ bàn phím.

Câu 4: viết chương trình nhập vào 2 số nguyên a, b sau đó in a, b trước và sau khi hoán đổi vị trí ra màn hình.

Câu 5: viết chương trình tính tiền hóa đơn mua một món hàng, biết phí dịch vụ của hóa đơn là 10.000đ và công thức tính tiền là:

 

Thành tiền = đơn giá * số lượng + phí dịch

Câu 6: Cho biết kết quả của các phép so sánh sau:

a, 2x + 1 = 0

b, x2 – 5 > 4

c, 112 > 100

d, x2  + 3 = 7

3
1 tháng 11 2021

giúp mk đi các bạn

mk xin đấy

2 tháng 11 2021

Câu 1:

b, 15*(4+30+12)

c, (a+b)^2*(d+e)^3

d, a*x^2+b*x+2*c

13 tháng 3 2023

Program HOC24;

var a,b: integer;

D: longint;

begin

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

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

D:=2*(a+b);

write('D = ',D);

readln

end.

18 tháng 10 2021

Bài 1:

-Kiểu dữ liệu phù hợp là kiểu số thực (real)

Bài 2:

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

b) 1/(1+x)*(1+x)-2/(x*x+1)

Bài 3: (Lười quá, nhường bạn khác nhé :D)

 

 

11 tháng 12 2021

uses crt;

var x:integer;

begin

clrscr;

readln(x);

writeln(x*x+x+1);

readln;

end.

29 tháng 11 2016

var a,b,c: real;

begin

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

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

c:= (a+b)/2;

write('Gia tri cua bieu thuc c=(a+b)/2 la: ',c);

end.

(chạy thử ct đi ^^!)

19 tháng 11 2021

program tin_hoc;
uses crt;
var b,c,d,A:realn;
begin
clrscr;
         write('nhap so b');readln(b);
         write('nhap so c');readln(c);
         write('nhap so d');readln(d);
         A:=(b+c)/d;
         writeln('A=');
end.