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.

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln((a+b)/2:4:2);

readln;

end.

20 tháng 3 2023

program GiamGiaTheoSoLuong;

var

     soluonghoa: integer;

     dongia, thanhtien: real;

begin

     write('Nhap so luong hoa: ');

     readln(soluonghoa);

     write('Nhap don gia: ');

     readln(dongia);

     thanhtien := soluonghoa * dongia;

     if soluonghoa >= 10 then

          thanhtien := thanhtien * 0.9

     else if soluonghoa >= 5 then

          thanhtien := thanhtien * 0.95;

     writeln('So luong hoa: ', soluonghoa);

     writeln('Don gia: ', dongia:0:2);

     writeln('Thanh tien: ', thanhtien:0:2);

     readln;

end.

25 tháng 11 2023

#include <iostream>

#include <string>

#include <algorithm>

int main() {

     int n, k;

     std::cin >> n >> k;

     std::string number = std::to_string(n);

     int numDigits = number.length();

     if (k >= numDigits) {

          std::cout << "0" << std::endl;

     } else {

          std::sort(number.begin(), number.end(), std::greater<char>());

          number = number.substr(0, numDigits - k);

          std::cout << number << std::endl;

     }

     return 0;

}

8 tháng 9 2022

{ đơn giá: a, số lượng: b}

uses crt;

var a,b,s,thanhtoan:integer;

begin

write('nhap gia don hang:');

read(a);

write('nhap so luong hang:');

s:=0;

thanhtoan:=0;

s:=a*b;

if s>100 then thanhtoan:= s*(30/100)

   else thanhtoan:= s* (10/100);

write(' so tien can thanh toan la:',' ',thanhtoan);

readln;

end.

 

 

 

 

 

 

 

 

Viết chương trình Pascal có khai báo và sử dụng biếnBài toán: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ trả hàng và nhận tiền thanh toán tại nhà khác hàng. Ngoài giá trị hàng hóa, khách hàng còn phải trả thêm phí dịch vụ. Hãy viết chương trình Pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy...
Đọc tiếp

Viết chương trình Pascal có khai báo và sử dụng biến

Bài toán: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ trả hàng và nhận tiền thanh toán tại nhà khác hàng. Ngoài giá trị hàng hóa, khách hàng còn phải trả thêm phí dịch vụ. Hãy viết chương trình Pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất.

Gợi ý: Công thức cần tính

Tiền thanh toán = Đơn giá x Số lượng + Phí dịch vụ

a. Khởi động Pascal. Gõ chương trình sau và tìm hiểu ý nghĩa từng câu lệnh

b. Lưu chương trình với ten TINHTIEN.PAS. Dịch và chỉnh sửa lỗi nếu có.

c. Chạy chương trình vơi các bộ dữ liệu (đơn giá và số lượng) như sau (1000,20), (3500,200), (18500,123). Kiểm tra tính đúng của các kết quả in ra..

d. Chạy chương trình với bộ dữ liệu (1,35000). Quan sát kết quả nhận được hãy thử đoán lí do tại sao chương trình cho kết quả sai.

0
27 tháng 12 2020

uses crt;

var tien:real;

begin

clrscr;

repeat

write('Nhap so tien:'); readln(tien);

until tien>0;

if tien>=100000 then writeln(tien*70/100:4:2)

else writeln(tien*90/10:4:2);

readln;

end.

Dạ cho mình hỏi chỗ này xíu, đoạn "(tien*70/100:4:2)" có chữ 4:2 nghĩa là gì ạ?

4 tháng 12 2016

program CT_dautien;

uses crt;

var a:integer;

begin

clrscr;

writeln('moi nhap so a');readln(a);

if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');

readln

end.

26 tháng 11 2016

sử dụng cấu trúc IF <điều kiện> THEN <câu lệnh>