Ответы
Ответ:
Похожие вопросы
Помогите пожалуйста!
Выберите правильный вариант:
Paid holiday is the time that you are allowed to spend …1...from work, but are still paid..2... . Most people in the US get 2 weeks paid vacation..3.., and some may get 3 or 4 weeks. In the UK most people have 4 or 5 weeks paid holiday each year. ..4..addition, there are 8 days in each country ..5..are public holidays. These public holidays are known ..6..bank holidays in the UK. Many of these are on Monday, giving people a long weekend, also called a three-day weekend (in the US), and a bank holiday weekend in the UK. ..7…the US, the national parks such as the Grand Canyon, Yosemite and Yellowstone are popular places to go on vacation. Young people may go walking or camping in the mountains. Disneyland is very popular especially …8..children. People also go skiing in the Rocky Mountains. It is also very common to use vacations to visit relatives …9..live in states that are far away. Some children go to different summer camps for several weeks during their summer vacation ..10..school, where they do special activities such as sports and crafts. When Americans want to relax in the sun, they usually go to Florida, Hawaii or the Carribbean.
In the past, British people spent their holiday at the seaside. Today, ..11.., many people prefer to go abroad on holiday, especially to somewhere warm. Many British people go to southern Europe for example to the Greek islands. Spain and Spanish islands are also very popular. Ibiza is famous ..12..its nightclubs, and is especially popular ..13..young people. People who stay in the UK ..14..their holidays often go to the county, especially to walk in places ..15..Scotland, Wales, or Lake District.
1.A) of B) off C) where D) away
2. A) for B) off C) with D) away
3. A) year B)in year C) for a year D) a year
4.A) At B) On C) For D) In
5. A) which B) so C) who D) like
6. A) like B) as C) of D) for
7. A) Within B) While C) During D) Moreover
8. A) for B) of C) at D) with
9. A) which B) while C) why D) who
10. A) away B)off C)from D) at
11. A) moreover B) however C) as soon as D) how
12. A) with B)at C) for D) of
13. A) at B) with C)for D) by
14. A) from B) at C) for D) when
15.A) as B)which C) like D) that
Помогите разобрать коды что за что отвечает хоть что то
задание1
procedure TForm1.Button1Click(Sender: TObject);
const
n=10;
var
m:array[1..n] of integer;
i,k: integer ;
s: string;
begin
randomize;
i:=0;
while i begin
i:=i+1;
m[i]:=random(10+1);
for k:=1 to i-1 do
if m[k]=m[i] then
begin
i:=i-1;
break;
end;
end;
for i:=1 to n do
s:=s+(IntToStr(m[i])+' ');
Memo1.Lines.Add(s);
end;
end.
задание2
procedure TForm1.Button1Click(Sender: TObject);
begin
if messagebox(handle, 'Идем на войну?' , 'Заголовок тактики', mb_iconinformation or mb_yesno) = mryes then
messagebox(handle, 'НАПАДАЕМ' , 'Пойдем на войну', mb_iconerror)
else
messagebox(handle, 'ОТСТУПАЕМ' , 'Не пойдем на войну ', mb_iconerror);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
s:=inputbox('текст1','текст2','vnemanei');
showmessage(s);
inputquery('текст2','текст1',s);
showmessage(s);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if opendialog1.execute=true then
label1.caption:=opendialog1.filename;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if savedialog1.execute=true then
memo1.lines.savetofile(savedialog1.FileName);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
savepicturedialog1.execute;
end;
end.
задание3
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Label2.Visible:=true;
bitbtn2.Visible:=false;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
label2.caption:='Ждите повышения!';
end;
procedure TForm1.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
bitbtn2.left:=random(clientwidth-30);
bitbtn2.Top:=random(clientheight-30);
end;
end.