Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1
Var a:array[1..1000] of real;
s:real;
i,n:integer;
Begin
Write('n = ');readln(n);
s:=1;
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
If a[i] > 0 then s:=s*a[i];
End;
Write('Tich la ',s:10:2);
Readln
End.
Câu 4:
Var a:array[1..1000] of integer;
s:longint;
i,n:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
If a[i] > 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln
End.
Câu 5:
uses crt;
var a,b:longint;
begin
clrscr;
readln(a,b);
writeln(a*b);
readln;
end.
uses crt;
var st1,st2:string;
begin
clrscr;
readln(st1);
readln(st2);
writeln('Ten minh ',st1);
writeln('Lop ',st2);
readln;
end.
*Câu lệnh For..do
Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
*Câu lệnh For..do
Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
công thức tính tổng: (số đầu + số cuối). số số hạng : 2
công thức tính số số hạng : ( số cuối - số đầu) : khoảng cách +1