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 bai1;
uses crt;
var a:longint; tiendien:real;
begin
clrscr;
readln(a);
if a<=100 then tiendien:=a*1000;
if a<=150 then tiendien:=100*1000+2000*(a-100);
if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);
if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);
Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');
readln;
END.
INP: 150 hóa đơn
OUT: Tổng số tiền của 150 hóa đơn
Thuật toán
B1: Nhập các số tiền hóa đơn a[1],a[2],...,a[150]
B2: t←0; i←1;
B3: Nếu i<=n thì in ra tổng số tiền và kết thúc
B4: t←t+a[i]; quay lại bước 3
B5: i←i+1; quay lại bước 3.
*Viết chương trình
program hotrotinhoc;
var i,t: longint;
a: array[1..150] of longint;
begin
for i:=1 to 150 do
begin
write('Nhap hoa don so ',i ,':'); readln(a[i]);
end;
t:=0; i:=1;
while i<=n do
begin
t:=t+a[i];
i:=i+1;
end;
write('Tong so tien la : ',t);
readln
end.
Bn coppy bàu khác qua đây hả mik thấy giống y chang, vs lại n là gì vậy
Lợn nhà là một giống loài được thuần hóa từ loài lợn rừng, được chăn nuôi để cung cấp thịt. Hầu hết lợn nhà có lớp lông mỏng trên bề mặt da. Lợn nhà thường được cho rằng là một phân loài từ tổ tiên hoang dã của chúng là lợn rừng.
Ở một số nước phát triển và đang phát triển, lợn thuần hóa là loài bản địa thường được nuôi thả ngoài trời hoặc trong chuồng. Ở một số vùng lợn được thả tìm thức ăn trong rừng có thể có người trông coi. Ở các quốc gia công nghiệp nuôi lợn thuần hóa được chuyển từ việc nuôi chuồng trại truyền thống sang hình thức nuôi công nghiệp. Nhờ đó mà có chi phí sản xuất thấp nhưng sản lượng lại cao
Lợn nuôi chủ yếu dùng để lấy thịt. Các sản phẩm khác từ thịt lợn như xúc xích, lạp xưởng, jambon. Đầu lợn có thể được dùng làm dưa da đầu lợn. Gan, huyết (huyết thường và huyết hậu) và các nội tạng khác cũng được dùng làm thực phẩm. Một số tôn giáo như Do Thái giáo và Hồi giáo, thịt lợn là thực phẩm cấm kỵ.
program bai1;
uses crt;
var a:longint; tiendien:real;
begin
clrscr;
readln(a);
if a<=100 then tiendien:=a*1000;
if a<=150 then tiendien:=100*1000+2000*(a-100);
if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);
if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);
Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');
readln;
END.