1) var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;
writeln;
for i:=1 to 10 do
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);
end.
2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: ');
for i:=1 to n do
read(a[i]);
s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.
Из формулы перемещения
h=( v^2 - v0^2 ) / 2g. ( h -перемещение ( высота) . v0-начальная скорость=0, v -скорость в момент удара о землю, g -ускорение свободного падения. ) выразим скорость.
v=корень квадратный из 2*g*h.
v=кор. кв. из 2*20*10=20м/c.
Вариант решения №1:
1)8 МБайт = 8192 КБайт
2) 8192 Кбайт / 4096 Кбайт = 2 - это отношение первого файла,которое мы передавали к второму. Тем самым решение получается из этого таким образом:
Первый файл больше второго в 2 раза. При неизменяемой скорости, второй файл соответственно будет передан в 2 раза быстрее -> 128/2 = 64 сек.
Вариант решения №2:
1) 8 МБайт = 8192 КБайт
2) найдём скорость соединения:
8192 Кбайт / 128 сек = 64 Кб/сек.
3) узнаем время передачи второго файла
4096 Кбайт / 64 Кб/сек = 64 сек.
ОТВЕТ : 64 сек.
Отмечу,что при решении похожих задач некоторые при переводе скорости и других местах вместо 1024 считают как 1000. Из-а этого в решении могут появиться такие ответы (для данной задачи) как 65,536 сек.
Обращайте внимание на то,с какой буквы написана величина! КБ=КБайт = 1024 байт. Если первая заглавная,то считается 2 в степени, то есть как принято в информатике.
кБайт = 1000 байт. Если с маленькой,то приставка кило считается по системе СИ, как в физике и является 10^3.
В 1 килобайте- 8 192 бит
в 1 мегабайте-8 288 608 бит
в 1 гигабайте-8 589 934 592 бит
Var
n, s, i: integer;
x: array[1..100]of integer;
begin
writeln('ВВедите кол-во купюр, их значения и необходимую сумму');
readln(n);
for i := 1 to n do
read(x[i]);
readln(s);
for i := n downto 1 do
begin
if s div x[i] > 0 then
write(s div x[i], '*', x[i], ' ');
s := s mod x[i];
end;
if s <> 0 then
writeln('NO')
end.
