Відповідь:
Ніяким чином все, що буде прописано нижче, не має бути узагальнено кимось як якесь повчання або нарікання. На жаль, всі ми "одним миром помазані" і це не риторичне зауваження, а повноцінний і не лицемірний висновок всієї історії людства та її перебігу. Якщо трохи заглибитись у новітню історію, то з часів Мордехея з Левітів, відомого більш за прізвиськом Карл Маркс, людству прискіпливо "хтось" почав нав’язувати ідею боротьби з гріхами пихи та стяжання в революційний, насильницький та інший "дієвий Пояснення:
Відповідь:Нікому без дозволу батьків не давати особисту інформацію: домашню адресу, номер домашнього телефону, робочу адресу батьків, їхній номер телефону, назву й адресу школи. Якщо знайдете якусь інформацію, що турбує вас, негайно сповістіть про це батьків. Ніколи не погоджуватися на зустріч з людиною, з якою ви познайомилися в Інтернеті. ... Ми пояснюємо, що не можна називати незнайомцям свою домашню адресу? Ну, і в мережі все те ж саме. Зараз багато цікавих навчальних ресурсів для дітей створюється з метою навчання безпечній поведінці в Мережі. ... Не повідомляйте особисту інформацію через Інтернет нікому, крім людей, яких ви знаєте і яким довіряєте.
Пояснення:
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while x<=550 do Go (1,0);
while y<=350 do Go (0,1);
while x>=150 do Go (-1,0);
while y>=150 do Go (0,-1);
until keypressed;
end.
Так сойдет? :)