Tin học Tính tổng

[vũ thị út quyên]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

mọi người giải bài tin này giúp mình với !!!@@@
cho tệp baitap dòng 1 chứa n số nguyên n dòng tiếp theo mỗi dòng có 1 số nguyên tính tổng các số 1 chữ số và tổng các số có 2 chữ số
mk xin cảm ơn mọi người trước ạ ^-^

 

[Trâm Nguyễn Thị Ngọc]

mọi người giải bài tin này giúp mình với !!!@@@
cho tệp baitap dòng 1 chứa n số nguyên n dòng tiếp theo mỗi dòng có 1 số nguyên tính tổng các số 1 chữ số và tổng các số có 2 chữ số
mk xin cảm ơn mọi người trước ạ ^-^

Thế mảng nhập vào chỉ gồm các số có 1 chữ số và 2 chữ số thôi hả chị, hay có cả 3,4,.. chữ số nữa ạ

 

[vũ thị út quyên]

cái này cô giáo cũng không nói rõ nhưng mk nghĩ nó không ảnh hưởng đến chứ nhỉ

 

[Trâm Nguyễn Thị Ngọc]

cái này cô giáo cũng không nói rõ nhưng mk nghĩ nó không ảnh hưởng đến chứ nhỉ

Không ảnh hưởng mấy ạ, nhưng nếu chỉ gồm 2 cái thì Chương trình sẽ ngắn hơn ạ, thôi h em viết của tất cả luôn nha chị, đợi em một chút

mọi người giải bài tin này giúp mình với !!!@@@
cho tệp baitap dòng 1 chứa n số nguyên n dòng tiếp theo mỗi dòng có 1 số nguyên tính tổng các số 1 chữ số và tổng các số có 2 chữ số
mk xin cảm ơn mọi người trước ạ ^-^

... Bài này em sd CTC và chuyển sang xâu để xử lý ạ, có thể sd luôn = số cũng đc mà không thì làm trong ct chính cũng đc, em nghĩ là sẽ ngắn hơn một chút
Bài này em viết hơi dài chút, do chụp ảnh nên nếu chib sd mt thì down ảnh về rồi xoay lại cho dễ nhìn ạ

 

[iceghost]

mọi người giải bài tin này giúp mình với !!!@@@
cho tệp baitap dòng 1 chứa n số nguyên n dòng tiếp theo mỗi dòng có 1 số nguyên tính tổng các số 1 chữ số và tổng các số có 2 chữ số
mk xin cảm ơn mọi người trước ạ ^-^

Số âm có 1 chữ số cũng tính luôn nhỉ

program tongchuso;
uses crt;
var tep: text;
    n, i, x, t1, t2: integer;
begin
    t1 := 0;
    t2 := 0;
    assign(tep, 'baitap.inp');
    reset(tep);
    readln(tep, n);
    for i := 1 to n do
    begin
        readln(tep, x);
        if abs(x) < 100 then
            if abs(x) < 10 then t1 := t1 + x
            else t2 := t2 + x;
    end;
    close(tep);
    writeln('Tong cac so co 1 chu so = ', t1);
    writeln('Tong cac so co 2 chu so = ', t2);
    readln
end.