Если ввести в окно поиска какое нибудь слово, то браузер найдет его значение или информацию о запросе
var pk,vk,tk,x,k:integer;
begin
write('x = ');
readln(x);
for pk:= 1 to 6 do
begin
for vk:=1 to 6 do
begin
for tk:=1 to 6 do
if pk+vk+tk=x then
begin
writeln('pk = ',pk,' vk = ',vk,' tk = ',tk,' ',pk,' + ',vk,' + ',tk,' = ',pk+vk+tk);
k:=k+1
end
end
end;
writeln(k,' шансов')
end.
Используем формулу V = v*t (V - объем передаваемой информации, v скорость передачи, t - время передачи).
1. V = v1*t1, V = v2*t2, t2 = v1*t1/v2
t2 = 256*40/1024 = 10 c
2. V1 = v*t1, V2 = v*t2, V2 = V1 / t1 * t2
V2 = 600 / 30 * 50 = 1000 Кбайт
Begin
var m,u,p,t:integer;
for var i:=10 to 99 do
if i mod 7 =0 then
begin
m:=m+i; u:=u+1;
end;
Writeln('Среднее чисел которые дклятся на 7=',m/u);
for var i:=1 to 99 do
if i mod 5 = 0 then
begin
p:=p+i; t:=t+1;
if t > 10 then break;
end;
Writeln('Среднее чисел которые дклятся на 5=',p/t);
end.
Движение объекта.Создание простой анимации в игровой среде.Объект будет двигаться постоянно,дойдя до края оттолкнется и обратнобудет двигаться