HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
var n:real;
begin
write(' Nhap so dien dung la: ');readln(n);
writeln(' So tien dien la: ',(n*2000):2:2);
readln;
end.
bạn cho mik xin cái ct tính ạ tại vì mik ngu toán hình hihi!!!
var a,b:integer;
write(' Nhap a: ');readln(a);
write(' Nhap b: ');readln(b);
writeln(' Tong la: ',a+b);
writeln(' Hieu la: '.a-b);
writeln(' Tich la: ',a*b);
writeln(' Thuong la: ',a/b);
var a,b:byte;
dùng byte là dc r vì phạm vi giá trị của nó từ 0 đến 255 mà nếu có thêm biến diện tích thì cái biến diện tích đó phải dùng kiểu nguyên khác nha vì byte bé quá
mik làm cả 2 bằng 1 ct nha
var x,y,z1,z2:real;
write(' Nhap x: ');readln(x);
write(' Nhap y: ');readln(y);
z1:=abs(1-sqr(x)) + abs(1-sqr(y));
z2:=abs(1-exp(x)) + abs(1-exp(y));
writeln(' KQ b1 :' ,z1:0:1);
writeln('KQ b2: ',z2:0:1);
program tinh;
uses crt;
const g=9.8;
var u,u1,h:real;
write(' Nhap h: ');readln(h);
u1:=2*g*h;
u:=sqrt(u1);
writeln(' Ket qua la: ',u);