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
2 câu trả lời
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.
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
Câu hỏi trong lớp
Xem thêm
