Bài tập Pascal

S

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.

(dùng lệnh While-do hoặc Repeat-until)
1/ Viết chương trình nhập số N (1≤N≤27), in ra màn hình số có 3 chữ số sao cho tổng các chữ số bằng N
2/ Viết ctr nhập số nguyên dương x,n.Tính:
S=1+x+((x^2)/2)+((x^3)/3)+...+((x^n)/n
 
L

lamdetien36

Bài 1:
Mã:
var
    i, k, N, S: integer;
begin
    write('Nhap N: '); readln(N);
    writeln('Ket Qua: ');
    for i := 100 to 999 do
    begin
        S := 0;
        k := i;
        while k <> 0 do
        begin
            S := S + k mod 10;
            k := k div 10;
        end;
        if S = N then writeln('      ', i);
    end;
    readln
end.
Bài 2:
Mã:
var
    X, P, S: real;
    N, i: longint;
begin
    write('Nhap X, N: '); readln(X, N);

    P := 1; S := 1;
    i := 0;
    while i < N do
    begin
        i := i + 1;
        S := S * X;
        P := P + S / i;
    end;

    write('Ket qua: ', P : 0 : 8);
    readln
end.
 
Last edited by a moderator:
Top Bottom