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.
Program hotrotinhoc;
var s: longint;
i,n: integer;
function lt(x,y: integer): longint;
var l,t: longint;
begin
t:=1;
for l:=1 to y do t:=t*x;
lt:=t;
end;
begin
write('N='); readln(n);
for i:=2 to n do
if (i-1) mod 2<>0 then s:=s+lt((i-1),i)
else
if (i-1) mod 2=0 then s:=s-lt((i-1),i);
write(s);
readln
end.
Câu 1: Ctrl+Z
Câu 2: Hàm AVERAGE
Câu 3: B,C
Câu 4:
Program cau4;
Uses crt;
Var i,n,dem: integer;
a: array[1..32000] of integer;
Function KT(x: integer): boolean;
var v: string;
BEGIN
KT:=true;
str(x,v);
if v[length(v)-1]='0' then exit;
KT:=false;
END;
BEGIN
write('Nhap n=');
readln(N);
Writeln('Nhap cac phan tu');
for i:=1 to n do
read(a[i]);
For i:=1 to n do
IF KT(a[i]) and (a[i] div 100>0) then dem:=dem+1;
Write('Co tat ca ',dem,' so chu so co so 0 o hang chuc');
readln
end.
uses crt;
var n,dem,dem1,i,t:integer;
tbc:real;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<1000) then
begin
{----------------------dong-1----------------------}
dem:=0;
for i:=1 to n do
if i mod 2=1 then inc(dem);
writeln('so luong cac so nguyen le tu 1 toi ',n,' la: ',dem);
{---------------------dong-2-----------------------}
dem1:=0;
for i:=1 to n do
if i mod 2=0 then inc(dem1);
writeln('so luong cac so nguyen chan tu 1 toi ',n,' la: ',dem1);
{--------------------dong-3------------------------}
t:=0;
for i:=1 to n do
t:=t+i;
tbc:=t/n;
writeln('trung binh cong cac so nguyen tu 1 toi ',n,' la: ',tbc:4:2);
end
else writeln('vui long nhap lai');
readln;
end.
