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.
uses crt;
var a,i,s:longint;
begin
clrscr;
write('a='); readln(a);
s:=0;
for i:=1 to a do
begin
if i mod 2=1 then s:=s+i
else s:=s-i;
end;
writeln('Ket qua la: ',s);
readln;
end.
uses crt;
var n,i,t:int64;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<1000000000);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan hao')
else writeln(n,' khong la so hoan hao');
readln;
end.
lệnh while
program tich;
uses crt;
var i,s:integer;
begin
clrscr;
S:= 1;
i:= 1;
while i <= 10do
begin
S:= S *i;
i:= i +1;
end;
write('Tich tu 1 den 10 la:',S);
readln;
end.
lệnh for
Program Tich; Uses crt; Var S,i:Integer; BEGIN clrscr; S:=1; For i:=1 to 10do S:=S * i; Writeln( ‘Tich = ’, S); Readln; END.
uses crt;
var a:array[2..1000000]of longint;
n,i,k,t,dem:longint;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<n) and (n<=1000000);
for i:=2 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
dem:=0;
for i:=2 to n do
if a[i] mod k=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chia het cho ',k,' la: ',t);
writeln('So phan tu chia het cho ',k,' la: ',dem);
readln;
end.
Viết lập trình cho phương trình sau:1/2!+1/3!+1/4!+...+1/n!
nêu các bước giải
hihihihihihihi<><><><>
duong manh dung ...... ??? Câu hỏi có sai hay thiếu ko bạn ??? =.=
đúng