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.
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.
uses crt;
var a,b:array[1..1000]of longint; d:text; i,j,n,k,t,kt,ktt:longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n);
for i:=1 to n do read(d,a[i]);
k:=0;
for i:=1 to n do
begin
t:=0;
for j:=i to n do
begin
t:=t+a[j];
inc(k,3);
b[k-2]:=i;
b[k-1]:=i+j;
b[k]:=t;
end;
end;
// for i:=1 to k do write(b[i],';'); writeln;
kt:=0;
i:=0;
repeat
inc(i); ktt:=0;
for j:=1 to k do If i=b[j] then ktt:=1;
if ktt=0 then kt:=1;
until kt=1;
writeln(i);
close(d);
readln
end.
Cái test thứ 2 đúng, còn cái test thứ 1 sai rồi bạn ơi phải ra 8 mới đúng mà mình chạy ra 11
bài này chỉ cần nhập số điện rồi tính thôi nhé bạn
uses crt;
var a,hieu,s,t,s1,s2,s3:longint;
begin
clrscr;
write('nhap so dien:'); readln(a);
if a<=50 then t:=a*1000;
if (a>50) and (a<=100) then
begin
if (a>50) and (a<100) then
begin
hieu:=a-50;
s:=hieu*2000;
t:=50*1000+s;
end;
if a=100 then
begin
s1:=50*1000;
s2:=50*2000;
t:=s1+s2;
end;
end;
if a>100 then
begin
s1:=50*1000;
s2:=50*2000;
hieu:=a-100;
s3:=hieu*3000;
t:=s1+s2+s3;
end;
writeln('so tien dien phai tra la: ',t);
readln;
end.