procedure TfrmMain.FindFilesOnDisk(Dir : string);
var SR : TSearchRec;
Err : integer;
i, j : integer;
st : string;
begin
if (Dir[Length(Dir)] <> '\') then Dir := Dir + '\';
Err := FindFirst(Dir + '*.*', faAnyFile, SR);
while Err = 0 do
begin
j := 0;
st := AnsiUpperCase(SR.Name);
if lbDirs.Items.Count > 0 then //Если в списке есть каталоги
//Проверить, нет ли среди них
for i := 0 to lbDirs.Items.Count - 1 do
if lbDirs.Items[i] = st then //найденного
begin
j := 1;
break;
end; //if lbDirs.Items[i] = st then
if j = 0 then
begin
if (SR.Name <> '.') and
(SR.Name <> '..') and
((SR.Attr and faDirectory) <> 0) then
begin
inc(NumDir);
DirList.Add(Dir + st);
frmMain.sbMain.Panels[1].Text := IntToStr(NumDir);
pbFind.Position := NumDir;
Application.ProcessMessages;
FindFilesOnDisk(Dir + SR.Name);
end; //if (SR.Name <> '.') and
end; //if j = 0 then
Err := FindNext(SR);
end;
end;
Объяснение:
1)
a = 1
b = 3*1 = 3
x = (1+3)/(1*3-1) = 4/(3-1) = 4/2 = 2
2)
#include <iostream>
using namespace std;
signed main() {
string name;
cin >> name;
cout << "Здравствуй, " << name << "! Давай дружить?";
}
3)
#include <iostream>
using namespace std;
signed main() {
int a,b,c;
cin >> a >> b >> c;
if(a == b || b == c || a == c)
cout << "YES";
else
cout << "NO";
}
4)
#include <iostream>
using namespace std;
signed main() {
int sum = 0;
while(true){
int x;
cin >> x;
if(x == 0)
break;
sum += x;
}
cout << sum;
}
Поделитесь своими знаниями, ответьте на вопрос:
Что не может являться источником проникновения вируса на компьютер? а.модем в.электронная почта с.жесткий диск d.съемные носители