uses crt;
const x=7.5;
var a:real;
begin
clrscr;
a:=3*sqr(x)-7*x+9;
writeln('a=',a:4:2);
readln;
end.
uses crt;
var a,x:real;
begin
clrscr;
x:= 7.5;
a:= (3 * (x * x)) - (7 * x) + 9;
write('A = ',a:0:2);
readln
end.
uses crt;
const x=7.5;
var a:real;
begin
clrscr;
a:=3*sqr(x)-7*x+9;
writeln('a=',a:4:2);
readln;
end.
uses crt;
var a,x:real;
begin
clrscr;
x:= 7.5;
a:= (3 * (x * x)) - (7 * x) + 9;
write('A = ',a:0:2);
readln
end.
Giúp mình bài này
Viết chương trình nhập vào 1 cạnh a và chiều cao h của một hình tam giác. Tính và xuất kết quả S của hình tam giác đó ra màn hình.
Viết chương trình nhập vào 2 số nguyên a và b. Tính và in kết quả của c và d ra màn hình. Biết c là kết quả của phép chia lấy phần nguyên của avà b, d là kết quả của phép chia lấy phần dưcủa avà b
Giúp mình 2 câu này
Bài 1.Viết chương trình nhập vào 1 cạnh a và chiều cao h của một hình tam giác. Tính và xuất kết quả S của hình tam giác đó ra màn hình.
Bài 2. Viết chương trình nhập vào 2 số nguyên a và b. Tính và in kết quả của c và d ra màn hình. Biết c là kết quả của phép chia lấy phần nguyên của avà b, d là kết quả của phép chia lấy phần dư của a và b
Viết chương trình nhập các số nguyên x và y, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in ra màn hình giá trị của x và y.
Viết chương trình nhập các số nguyên x và y, rồi in ra x,y. Sao đó hoán đổi các giá trị x và y rồi in ra màn hình
Viết chương trình nhập hai số nguyên x, y. In ra màn hình giá trị của hai số đó sau khi hoán vị.
Viết chương trình nhập ba số nguyên x, y, z. In ra màn hình giá trị của ba số đó sau khi hoán vị.
Viết chương trình in ra màn hình " Thời khóa biểu" thứ 2 và thứ 3 của em
(Helppppppp Meeeeeeeeeeee pls)
Viết chương trình nhập vào số nguyên dương N (1<N<10^10) từ bàn phím, Hãy sắp xếp lại các chữ số của N sao cho ta được số lớn nhất, in kết quả ra màn hình
ìm hiểu đoạn chương trình sau đây. Khồng cần viết chương trình,hãy cho biết lệnh writeln in ra màn hình giá trị của i,j,k là bao nhiêu?
i:=1;j:=2;k:=3;
while i<=6 do
begin i:=i+1; j:=j+1; k:=k+j; end;
space:=' '
write(I,space,j,space,k);