1)Если ребёнок проводит очень много времени с компьютером или ноутбуком ухудшается зрение и слизистая
2)Ребёнок может зайти на сайты где может быть призыв к суициду
3)У ребёнка может появится зависимость от видео игр, и он будет агресировать или злится когда у него отбирают компьютер или же ноутбук
Из (14) наливаем в (5)
из (5) наливаем в (9)
повторяем пункт 1
из (5) наливаем в (9) остается 1л
переливаем из (9) в (14)
выливаем 1л из (5) в (9)
из (14) наливаем в (5)
из (5) наливаем в (9)
в битоне(9) находится 6л молока
из (14) наливаем в (5)
из (5) наливаем в (9)
в битоне (5) остается 2л молока
переливаем из (9)в (14)
наливаем в (9) 2л молока из (5)
из (14) наливаем в (5)
<span>из (5) переливаем в (9)</span>
Var x:integer;beginreadln(x);write(4*sqr(x)+sqrt(x-2));end.
Procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
i:=0;
Buff:=Head;
if(Buff^.Next=nil) then
begin
ShowMessage('В стеке один элемент!');
exit;
end;
while Buff <> nil do
begin
while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
begin
pop(Buff^.Next,x);
for j:=i to StringGrid1.RowCount-2 do
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
Buff:=Buff^.Next;
i:=i+1;
end;
end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
Var
i:integer;
a:array[1..25]of integer;
begin
for i:=1 to 25 do
begin
a[i]:=random(10,50);
write(a[i],' ');
end;
<span>end.</span>
