Предмет: Қазақ тiлi, автор: mrmeat

попс формула на тему менін бос уакытым ​

Ответы

Автор ответа: aiish015
0

Бос уақытыңда телефон көріп жата беруге болмайды. Еріншектік сенің алтын уақытыңды ұрлайды. Уақыт зымырап өтеді, сондықтан қазіргі берілген уаұытты пайдаланып қал. Мысалы бос уақытта бос жатпай, "анаңа көмектес", "кітап оқы", "түрлі тағамдар дайында", "мақсат қой". Және түнде 8 сағат ұйықта да, қалған уақытыңда мақсатқа жетуге дайындал.

Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Английский язык, автор: helemendiktatj
Помогите с переводом ! У меня есть друг его зову Юра, ему 10 лет у него отличное настроение. Он живет в России в Великом Новгороде. Он ученик 3 класса гимназии№ 2. Он учится на отлично , его любимый урок -математика. Он хочет быть инженером. Он умеет бегать, прыгать, но не умеет плавать. Он очень любит кушать фрукты и пить молоко. У него есть домашнее животное-кот. Его любимое время года зима, потому что он любит кататься на лыжах. У него много друзей. Он любит спорт, любит читать и кататься на велосипеде .Я люблю моего друга потому что он самый добрый и отзывчивый.
2 года назад
Предмет: Русский язык, автор: SonyaSonya56
Придумайте пожалуйста какую- нибудь историю "Невероятное приключение".
Мне нужен только смысл, а сам рассказ я придумаю. Заранее спасибо.
2 года назад
Предмет: Английский язык, автор: 1985t
помогите пожалуйста поставить правельные слова
2 года назад
Предмет: Информатика, автор: PNaty
проблема заключается в том что на месте, которое выделено "//...//" PascalABC.Net говорит, что там ошибка, пожалуйста помогите, укажите ошибку и если есть возможность её исправить, это срочно
program Zmeya;
Uses graphabc, events,timers;

const
r=5 ;
d=7;

type
TDirection = (None, Left, Right, Up, Down);

var x,t,y,i,z,xr,yr,prin1,prin2,prin3,prin4,prin5,k,s4et,prin6: integer;
Direction :TDirection;
xs,ys,bufx,bufy:array[1..200]of integer;


procedure shar3;
begin
SetBrushColor(clYellow);
circle(xs[k],ys[k],r);
end;

procedure Circl;
begin
SetBrushColor(clBlack);
circle(x,y,r);
end;

procedure rshar ;
begin
xr:=Random(WindowWidth) ;
yr:=Random( WindowHeight);
end;

procedure rshar2;
begin
SetBrushColor(clYellow);
circle(xr,yr,r);
end;

procedure XP(Key:integer);
begin
case Key of
VK_Left: Direction := Left ;
VK_Right: Direction := Right ;
VK_UP: Direction := UP ;
VK_Down: Direction :=Down ;
end;
circle(x,y,r);
end;


procedure pause;
begin
// for i:=1 to 1 do //
begin
Circl;
rshar2;
ClearWindow;
rshar2 ;
prin1:=(xr-x+r)*(xr-x+r)+(yr-y)*(yr-y) ;
prin2:=(xr-x-r)*(xr-x-r)+(yr-y)*(yr-y) ;
prin3:=(xr-x)*(xr-x)+(yr-y+r)*(yr-y+r) ;
prin4:=(xr-x)*(xr-x)+(yr-y-r)*(yr-y-r) ;
prin5:=R*R;
if (prin1)<=(prin5) then begin
rshar ;
s4et:=s4et+1;
end;


if (prin2)<=(prin5) then begin
rshar ;
s4et:=s4et+1;
end;
if (prin3)<=(prin5) then begin
rshar ;
s4et:=s4et+1;
end;
if (prin4)<=(prin5) then begin
rshar ;
s4et:=s4et+1;
end;

case Direction of
Left: begin x:=x-d; if x<=0 then x:=WindowWidth end;
Up: begin y:=y-d; if y<=0 then y:=WindowHeight end;
Right: begin x:=x+d; if x>=WindowWidth then x:=0 end;
Down: begin y:=y+d; if y>=WindowHeight then y:=0 end;
end;
xs[1]:=x;
ys[1]:=y;
for k:=1 to s4et do
begin
bufx[k]:=xs[k];
bufy[k]:=ys[k];

end;
for k:=1 to s4et do
begin
xs[k+1]:=bufx[k];
ys[k+1]:=bufy[k] ;
end;
for k:=2 to s4et do
shar3;
Circl;
end;
end;
begin
rshar;
s4et:=2;

Direction := None;

x:=WindowWidth div 2;
y:=WindowHeight div 2;
OnKeyDown:=XP;
CreateTimer(150,pause);

end.
8 лет назад
Предмет: Математика, автор: marintseva2000
Вычислите площадь фигуры, ограниченной гиперболой у = 5/х и прямыми у = 4х + 1 и х = 2.
8 лет назад