NQ
0
K
Khách
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ác câu hỏi dưới đây có thể giống với câu hỏi trên
H
25 tháng 3 2020
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.
ML
5 tháng 4 2020
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.
13 tháng 4 2018
Sự khác nhau giữa lệnh Find và Replace là:
Find là để tìm nhanh một từ hay một dãy các kí tự trong văn bản
Replace là để thay thế một từ hay một dãy các kí tự trong văn bản
13 tháng 4 2018
3 )Trình bày các bước để xóa bảng
Cách 1 : Chọn toàn bộ bảng bằng cách bôi đen tất cả các hàng các cột hoặc các bạn chọn biểu tượng trung tâm để chọn toàn bộ bảng. Sau đó bạn nhấn chuột phải và chọn Delete Table.
Cách 2 : bạn chọn toàn bộ bảng và chọn Layout -> Delete -> Delete Table để xóa bảng.
NM
1
17 tháng 5 2020
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.