Bài tập Pascal cấu trúc lặp

[snowangel1103]

[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.

1/ Tìm các số nguyên dương có 2 chữ số, sao cho số đó chia hết cho 2 và tổng các chữ số bằng 10.
2/ Cho nhập số nguyên dương N. tính tổng N số nguyên nhập vào từ bàn phím ( N là số lượng số nguyên được nhập)

 

[thienluan14211]

1/ Tìm các số nguyên dương có 2 chữ số, sao cho số đó chia hết cho 2 và tổng các chữ số bằng 10.
Dùng vòng lặp a chạy từ 10 đến 99
Kiểm tra điều kiện
(a mod 2=0) and(a div 10 + a mod 10 =10) thì thoả mãn điều kiện

 

[thienluan14211]

2/ Cho nhập số nguyên dương N. tính tổng N số nguyên nhập vào từ bàn phím

Nói rõ đề bài hơn đi tính tổng N số nguyên nhập vào từ bàn phím là tính tổng 1+2+3+...+n hay là sao?

 

[lamdetien36]

2/ Cho nhập số nguyên dương N. tính tổng N số nguyên nhập vào từ bàn phím

Nói rõ đề bài hơn đi tính tổng N số nguyên nhập vào từ bàn phím là tính tổng 1+2+3+...+n hay là sao?

Hiển nhiên là tính tổng N số nguyên nhập từ bàn phím rồi
Bài 1:

var
    n: integer;
begin
    writeln('Cac So Can Tim La: ');
    for n := 10 to 99 do
    begin
        if (n mod 2 = 0) and (n mod 10 + n div 10 = 10) then writeln(n);
    end;
    readln
end.

Bài 2:

var
    A: array [1..100] of integer;
    N, i, S: integer;
begin
    write('Nhap N: '); readln(N);
    S := 0;
    for i := 1 to N do
    begin
        write('    A[', i : 2, '] = ');
        readln(A[i]);
        S := S + A[i];
    end;
    write('Tong Cac So Nhap Vao La: ', S);
    readln
end.

 

[snowangel1103]

bạn ơi cho mình hỏi nếu cho i chạy từ 10 đến 99 thì i đâu có liên quan đến a đâu. bạn có thể nói rõ ý của bạn hơn không? cảm ơn

 

[vuonghao159357]

khó nhi? tin học cái này khó hiểu nhất...................................................................................................

 

[snowangel1103]

Hiển nhiên là tính tổng N số nguyên nhập từ bàn phím rồi
Bài 1:

var
    n: integer;
begin
    writeln('Cac So Can Tim La: ');
    for n := 10 to 99 do
    begin
        if (n mod 2 = 0) and (n mod 10 + n div 10 = 10) then writeln(n);
    end;
    readln
end.

Bài 2:

var
    A: array [1..100] of integer;
    N, i, S: integer;
begin
    write('Nhap N: '); readln(N);
    S := 0;
    for i := 1 to N do
    begin
        write('    A[', i : 2, '] = ');
        readln(A[i]);
        S := S + A[i];
    end;
    write('Tong Cac So Nhap Vao La: ', S);
    readln
end.

cảm ơn bạn rất nhiều vì đã giúp mình cả 2 bài tập đều chính xác

 

[lamdetien36]

cảm ơn bạn rất nhiều vì đã giúp mình cả 2 bài tập đều chính xác nhưng do bài 2 bạn giải theo kiểu mảng mình chưa học tới nên ko dc phép dùng. nếu dc mong bạn chỉ giúp mình cách khác. thanks

Sửa lại 1 chút thôi mà

var
    A, N, i, S: integer;
begin
    write('Nhap N: '); readln(N);
    S := 0;
    for i := 1 to N do
    begin
        write('    A[', i : 2, '] = ');
        readln(A);
        S := S + A;
    end;
    write('Tong Cac So Nhap Vao La: ', S);
    readln
end.

 

[gabby0607]

Tin Học

Viết chương trình nhập N số nguyên:
a. Tính tổng các số nguyên dương, ghi kết quả tính được vào tệp "soduong.txt"
b. Tính tổng các số chia hết cho 3 nhưng không chia hết cho 5