Cho n và dãy số a từ a1 đến an. Tính tích các số Dương của dãy a. Xác định bài toán. b. Viết thuật toán

0 bình luận về “Cho n và dãy số a từ a1 đến an. Tính tích các số Dương của dãy a. Xác định bài toán. b. Viết thuật toán”

1. program TBC;
   uses crt;
   var a: integer;
         s: real;
   begin
   clrscr;
   writeln(‘nhap so a: ‘); readln(a);
   s:= s+a;
   writeln(‘nhap so b: ‘); readln(a);
   s:= s+a;
   writeln(‘nhap so c: ‘); readln(a);
   s:= s+a;
   writeln(‘nhap so d: ‘); readln(a);
   s:= s+a;
   s:= s/4;
   writeln(‘TBC la: ‘,s:2:1);
   readln
   end.

   Bình luận

2. Uses crt;
   Var n,dem,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           dem:=0; s:=0;
           For i:=1 to n do
                   If i>=0 then inc(dem)
                   Else s:=s+i;
           Write(‘Co ‘,dem,’ so nguyen duong’);
           Writeln;
           Write(‘Tong cac so nguyen am la: ‘,s);
           Readln

   Bình luận