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.
program bai_5;
uses crt;
var a,b,c :real;
BEGIN
write('nhap vao so a'); Readln(a);
write('nhap vao so b'); Readln(b);
write('nhap vao so c'); Readln(c);
if a<0 then a:=-a;
max:=a;
if max <b then max:=b;
if max<c then max:=c;
write('gia tri tuyet doi cua a la:',a);
write('so lon nhat trong ba so a,b,c la:',max);
Readln
END.
Thanks
Program Hinh_tron;
Uses crt;
Var r,dt:real;
Begin
clrscr;
Writeln(' Nhap ban kinh hinh tron:');
Readln(r);
dt:= r*r*3.14;
Writeln('Dien tich hinh tron la:',dt);
Readln;
End.
uses crt;
begin
clrscr;
writeln((5-2*3)/2:4:2);
writeln((15*4-8)*3);
writeln((15 div 2) mod 3);
writeln((245 div 10) div 3) mod 2);
readln;
end.
Câu 3:
uses crt;
var s,i,n,t:int64;
begin
clrscr;
readln(n);
s:=1;
t:=0;
for i:=1 to n do
begin
t:=t+i;
s:=s*i;
end;
writeln(t);
writeln(s);
readln;
end.
THAM KHẢO:
uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('a='); readln(a);
cv:=a*4;
dt:=sqr(a);
if a>0 then
begin
writeln('chu vi hinh vuong la: ',cv);
writeln('dien tich hinh vuong la: ',dt);
end
else writeln('vui long nhap so a lon hon 0');
readln;
end.
VAR A,n:real;
begin
write('nhap gia tri n:');readln(n);
A:=1/(1*3)+1/(2*4)+1/(3*5)+.........+1/n(n+2);
writeln('gia tri cua A la:,'A);
readln;
end.
Bai1: a) \(sqr\left(5-1\right)\) mod 3
b) \(sqr\left(10\right)+\left(25-4\right)\)/4
Bai2:Xác định bải toán
Input : Chiều dài b và chiều rộng a.
Output: Diện tích và chu vi thửa ruộng.
Thuật toán
B1:Nhập a,b
B2:CV<-- (a+b)*2
Và S<--a*b
B3: -Thông báo lên màn hình diện tích là s
-Và chu vi là cv
fsa