program bai1;
var mP,mO:longint;
lc:char;mol:real
begin
write('Ban muon tinh so mol cua P hay O ');
readln(lc);
if lc='P' then
begin
write('So mol cua P la ');readln(mP);
mol:=mP/M(PTK của P tự tính nha);
write('So mol la ',mol:4:2);
end;
mol của O tương tự
readln
end.
Hãy cho biết giá trị của a và b là bao nhiêu khi kết thúc chương trình sau:
Var a, b: integer;
Begin
a:=10 ; b:=6;
If a<b then begin a :=a+b; a := a- b end;
Writeln('a = ', a, ' b = ',b);
End.
Viết chương trình nhập vào một số nguyên x. Tính và đưa ra màn hình giá trị y = ∛x + √x + 1. *
Câu trả lời của bạn
viết chương trình nhập vào từ bàn phím 2 số nguyên a,b đưa ra màn hình giá trị lớn nhất trong chúng
Viết chương trình a,Nhập vào một xâu kí tự b,đếm và in ra màn hình số kí tự là chữ cái(chữ hoa) có trong xâu
lập trình nhập vào từ bàn phím số nguyên dương n tính và in ra màng hình tổng các số chẳn từ 1 đến n
viết chương trình tính và đưa ra mh tổng s=1²+3²+5²..+99² mọi ng giúp mình với
Viết chương trình in ra màn hình các dòng chữ "Xin chao cac ban" và "Moi ban den voi Pascal
Viết chương trình lập 2 số nguyên dương m, n từ bàn phím (m<n) đếm và đưa ra màn hình số lượng các số lẻ không chia hết cho 3 hoặc 5 trong phạm vi từ m đến n
