Trang chủ Tin Học Lớp 8 Câu 1: Khuyến mại Nhằm tri ân khách hàng nhân...

Câu 1: Khuyến mại Nhằm tri ân khách hàng nhân dịp cuối năm, siêu thị A tổ chức chương trình khuyến mại như sau: mỗi hóa đơn từ 500.000 đồng trở lên sẽ được rút

Câu hỏi :

Câu 1: Khuyến mại Nhằm tri ân khách hàng nhân dịp cuối năm, siêu thị A tổ chức chương trình khuyến mại như sau: mỗi hóa đơn từ 500.000 đồng trở lên sẽ được rút một phiếu khuyến mại, trên phiếu khuyến mại người ta ghi một mã nhận thưởng là một số nguyên dương N và người mua sẽ được trừ vào trong hóa đơn thanh toán của mình số tiền thưởng tương ứng có giá trị bằng tổng các chữ số của mã nhận thưởng này (tính theo đơn vị nghìn đồng). Hôm nay, An đi siêu thị và cũng được rút một phiếu khuyến mại. Trong lúc đợi thanh toán, bạn ấy tranh thủ nhẩm tính xem liệu mình sẽ được trừ bớt bao nhiêu tiền. Em hãy lập trình tính nhanh giúp bạn số tiền đấy nhé. Yêu cầu: Xác định số tiền thưởng mà An sẽ được trừ vào trong hóa đơn thanh toán của mình. Dữ liệu vào: Nhập từ bàn phím số nguyên dương N là mã nhận thưởng ghi trên phiếu khuyến mại của An (0<N〖10〗^30). Dữ liệu ra: In ra màn hình số tiền thưởng mà An sẽ được trừ vào trong hóa đơn. Ví dụ: Dữ liệu vào Dữ liệu ra 123 6 986321 29 Ràng buộc: Có 50% số test tương ứng với 50% số điểm thỏa mãn 0<N〖10〗^18. Có 50% số test tương ứng với 50% số điểm thỏa mãn 〖10〗^18<N〖10〗^30. Lập trình pascal ak

Lời giải 1 :

uses crt;
var t,k:qword;s:string;i:longint;
begin
readln(s);
for i:=1 to length(s) do
begin
val(s[i],k);
t:=t+k;
end;
write(t);
readln
end.

Lời giải 2 :

var i,ans: integer;
    s: string;
begin
    ans:=0;
    readln(s);
    for i:=1 to length(s) do begin
        ans:=ans+ord(s[i])-ord('0');
    end;
    write(ans);
end.
// author: Bao Nam
// language: pascal

Bạn có biết?

Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!

Nguồn :

Wikipedia - Bách khoa toàn thư

Tâm sự lớp 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần và sang năm lại là năm cuối cấp, áp lực lớn dần. Hãy chú ý đến sức khỏe, cân bằng giữa học và nghỉ ngơi để đạt hiệu quả tốt nhất!

Nguồn :

sưu tập

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK