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.
B1: Nhập a, nhập b, nhập c, nhập d
B2: p:=b*b*b+(a-c)+c*d-4;
B3: Xuất p ra màn hình
B4: Kết thúc
1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên
Công thức chu vi:(a+b)*2
Công thức diện tích: a*b
Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)
de 3
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.
à tiện thể thì hàm inc(n) có nghĩa là tăng biến n lên 1 đơn vị
còn nếu là inc(n,x) thì tăng biến n lên x đơn vị nha
uses crt;
var n,s:longint;
begin
clrscr;
n:=1; s:=1;
while s<=10000 do
begin
inc(n);
s:=s*n;
end;
writeln(n);
readln;
end.
a)
Program bt;
Var a,b,c,tb:real;
Begin
Writeln('nhap a:=');
Readln(a);
Writeln('nhap b:=');
Readln(b);
Writeln('nhap c:=');
Readln(c);
tb:=a+b+c/3;
Writeln('diem trung binh cua ba mon:=',tb);
Readln;
End.
b)
Program bt;
Var tb:real;
Begin
Writeln('nhap tb:=');
Readln(tb);
if tb >=8,0 then writeln('hoc luc gioi') else writeln('hoc luc kha');
Readln;
End.
Lời giải :
a) write('nhap n='); readln(n);
S1:=0;
for i:=1 to n do S1:= S1+i;
write(S1);
b) S2:=0;
for i:= 1 to 12 do S2:=S2+i;
write(S2);
c) write('nhap n='); readln(n);
S3:=0;
for i:= 1 to n do
if i mod 2 =0 then S3:=S3+i;
write(S3);
d) S4:=0;
for i:=1 to 32 do
if i mod 2 =0 then S4:=S4+i;
write(S4);
e) write('nhap n='); readln(n);
S5:=0;
for i:=1 to n do
if i mod 2=1 then S5:=S5+i;
write(S5);
f) S6:=0;
for i:= 1 to 39 do
if i mod 2=1 then S6:=S6+i;
write(S6);
cảm ơn bạn nhưng nếu chỉ viết câu lệnh thì mình viết như thế hả.??
Program trung_binh_cong;
uses crt;
var a,b,c: real;
begin
clrscr;
write('nhap so a , b , c =' ,); readln(a,b,c):
writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3;
readln;
end.
Program trung_binh_cong;
uses crt;
var a,b,c: real;
begin
clrscr;
write('nhap so a , b , c =' ,); readln(a,b,c):
writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3);
readln;
end.
Program HOC24;
uses crt;
var s: real;
i,n,j,l: integer;
begin
clrscr;
s:=2014;
for i:= 1 to 2012 do
for j:= 4 to 2015 do
for l:=2 to 2013 do
s:=s+(i*j)/(l*(l+1));
write('S = ',s:6:2);
Readln;
end.