gán a = b = 15.5
Tinh bieuthuc_kq(tong.tich).py
nhập vào hai giá trị thực c, d khác nhau
bieuthuc_kq = ((c-a) + (d-b))*5^2
xuất ra màn hình kết quả cần tìm
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 Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;
Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);
Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;
Writeln('So lon nhat trong 4 so do la: ',Max);
readln;
End.
Tìm GTLN : =SUM(XA:YB) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.
program tom;
uses crt;
var a,b,c: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
c:=a div b;
write(c);
readln;
end.
program tin_hoc;
uses crt;
var b,c,d,A:realn;
begin
clrscr;
write('nhap so b');readln(b);
write('nhap so c');readln(c);
write('nhap so d');readln(d);
A:=(b+c)/d;
writeln('A=');
end.
1:
uses crt;
const fi='ketqua.txt';
var f1:text;
st:string;
i,d:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(f1,st);
close(f1);
end.
2:
uses crt;
var a,b,c,d:integer;
{----------chuong-trinh-con-----------------------}
function min(x,y:integer):integer;
begin
if x<y then min:=x
else min:=y;
end;
{---------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln(min(a,min(b,min(c,d))));
readln;
end.
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.