giúp mình với Viết chương trình tính tổng và tích các số tự nhiên lẻ từ 1 đến 100

0 bình luận về “giúp mình với Viết chương trình tính tổng và tích các số tự nhiên lẻ từ 1 đến 100”

1. Program BTH;
   uses Crt;
   var s,t:real;
   n,i:byte;
   Begin
           clrscr;
           s:=1;
           For i:=1 to 100 do
           If i mod 2=1 then
           Begin
                   s:=s*i;
                   t:=t+i;
           end;
           writeln(‘Tong day so tren la: ‘,t:0:0);
           writeln(‘Tich day so tren la: ‘,s:0:0);
           readln;
   end.

   Bình luận

2. Program oken;
   uses crt;
   var tich:real;

        i,tong:integer;
   Begin
    clrscr;
    tich:=1;

    for i:=1 to 100 do
          if i mod 2=1 then
           begin
                   tich:=tich*i;
                   tong:=tong+i;
           end;
    writeln(‘Tong cac so tu nhien le tu 1 den 100: ‘,tong);
    writeln(‘Tich cac so tu nhien le tu 1 den 100: ‘,tich:0:0);

    readln;
   end.

   Cho mình câu trả lời hay nhất nha 

   Bình luận