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

[thuyhung27]

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

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

 

[hiepsh97]

program bt;
var 
      S, P, : word;
      i : byte;
begin
   S:=0; P:=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.