Chào mừng bạn đến với HMForum. Vui lòng đăng ký để sử dụng nhiều chức năng hơn!

[ Tin 8] Câu lệnh lặp !

Thảo luận trong 'Tin học cấp II' bắt đầu bởi thuyhung27, 15 Tháng một 2014.

CHIA SẺ TRANG NÀY

Lượt xem: 429

  1. thuyhung27

    thuyhung27 Guest

    Đặt chỗ PEN 2017 - Cập nhật theo mọi thay đổi của kỳ thi THPT QG

    Đăng ký gia nhập BQT DIỄN ĐÀN


    Đề bài:Sử dụng câu lệnh lặp em hãy tính tổng và tích các số tự nhiên lẻ liên tiếp từ 1 đến 101. thanks nhìu!!!
     
  2. hiepsh97

    hiepsh97 Guest


    PHP:
    program bt;
    var 
          
    SP, : word;
          
    byte;
    begin
       S
    :=0P:=1;
       for 
    i:=1 to 101 do
           if 
    i mod 2 =1 then 
                 begin
                      S
    :=S+i;
                      
    P:=P*i;
                 
    end;
       
    writeln('Tong = ',T,' Tich = ',P);
       
    readln;
    end.