hãy viết ra màn hình biểu thức A=x-y-20 trong pasca
K
Khách
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.
19 tháng 9 2020
const fi='bt.inp';
fo='bt.out';
var f1,f2:text;
a:array[1..100]of integer;
i,n,max,min:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
for i:=1 to n do
if (min<a[i]) and (a[i]<max) then write(f2,a[i]:4);
close(f1);
close(f2);
end.
TT
3
28 tháng 10 2020
Microsoft Visual Studio 2012 thì làm C#/C++/Python là chính chứ làm ngôn ngữ nào
10 tháng 9 2020
uses crt;
var mh,sl,tt:longint;
begin
clrscr;
write('Nhap don gia cua mat hang:'); readln(mh);
write('Nhap so luong cua mat hang ',mh,':'); readln(sl);
tt:=sl*mh;
if tt>100 then writeln('So tien phai tra la: ',tt*97/100:4:2)
else writeln('So tien phai tra la: ',tt);
readln;
end.
CT
22 tháng 8 2020
Cảm giác bài làm của 2 bạn hạng nhất và hạng nhì khá giống nhau nhỉ?
HD
Hà Đức Thọ
Admin
5 tháng 9 2020
Cảm ơn Phước Thịnh đã tổ chức cuộc thi này. Thầy sẽ nhắn tin và trao giải cho các bạn đạt giải.
4 tháng 9 2020
Các bạn cố gắng đợi một thời gian rồi thầy @phynit sẽ thưởng cho các bạn
uses crt;
begin
clrscr;
writeln('A=',x-y-20);
readln;
end.
uses crt;
var x,y:integer;
Begin
clrscr;
write('Nhap x:'); readln(x);
write('Nhap y:'); readln(y);
write('x-y-20=',x-y-20);
readln;
End.