HOCMAI Forum đã quay trở lại, MỚI MẺ - TRẺ TRUNG - NĂNG ĐỘNG
Hãy GIA NHẬP ngay

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

Lượt xem: 412

  1. thuyhung27

    thuyhung27 Guest

    Hướng dẫn Cách gõ công thức Toán học, Vật lý, Hóa học forum mới


    Đề 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.
     

CHIA SẺ TRANG NÀY