-
Как ты думаешь что значит быть гражданином своей страны Напиши ответ объемом до 5 предложений
-
Предмет:
Другие предметы -
Автор:
juliethampton - 5 лет назад
-
Ответы 1
-
Ответ:
гражданин и просто человек, живущий в стране- разные вещи. быть гражданином страны- это любить её, также соблюдать законы. принимать участие в решениях проблем, и развитии *Твоя страна*.
-
Автор:
hunterf47f - 5 лет назад
-
0
-
-
Добавить свой ответ
Еще вопросы
-
40 баллов!!!
Рядом с вашим домом находится молочный комбинат. Вы хотите продавать его продукцию в соседний город.
Какая форма предпринимательства подошла бы вам больше всего, с учетом того, что вам не хватит своих собственных средств для организации регулярных и бесперебойных поставок молочной продукции в магазины соседнего города, проявившие к этому интерес.
-
Предмет:
Экономика -
Автор:
howardecla - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
Нужно 5 предлож. из Activ voice на passive voice помогите пожалуйста
-
Предмет:
Английский язык -
Автор:
howie - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
розвязати рівняння |2.75+x|=1.25
-
Предмет:
Математика -
Автор:
justice80 - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
Помогите разобрать коды что за что отвечает хоть что то
задание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.
-
Предмет:
Информатика -
Автор:
bogey6wnl - 5 лет назад
-
Ответов:
0 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35934 -
Askold
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
770
How much to ban the user?
1 hour
1 day
100 years