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
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
uses crt;
var a:array[1..100]of integer;
n,i,max,min,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Trung binh cua day so la: ',t/n:4: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.
Input: a,b,c
Output: (a+b+c)/3
Bạn ơi ; cho mình xin phần mô tả thuật toán