//PascalABC
7)а) if (x > y) then z := x + y
else z := y - x;
б)при x = 5 и y = -6 (x > y)
z = x + y = -1
8) if (num1 < num2) then num1 := num1 + num2
else num1 := num1 - num2;
Var
i, p: integer;
begin
p := 1;
i := 5;
while i <= 10 do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
Нужно определить, сколько времени будет передаваться файл объемом 10 Мбайт по каналу со скоростью передачи данных 215 бит/с; к этому времени нужно добавить задержку файла у Васи (пока он не получит 1024 Кбайт данных по каналу со скоростью 219 бит/с).
Переведём объём информации в Мб в биты: Q = 10 Мб = 10 * 220 байт = 10 * 223 бит.
Время задержки: = 1024 кб / 219 бит/с = 2(10 + 10 + 3) - 19 c = 24 c.
Время скчивания данных Петей: = 10 * 223 бит / 215 бит/с = 10 * 28 c.
Полное время: = 10 * 28 c + 24 c = (256 * 10 + 16) c = 2576 c.
Ответ: 2576.
Выпишем числа Фибоначчи, не превышающие 46, в обратном порядке:
34, 21, 13, 8, 5, 3, 2, 1.
Для перевода в Фибоначчиеву систему счисления представим каждое переводимое число в виде суммы чисел Фибоначчи, а затем заменим использованные в записи числа единицами, а неиспользованные - нулями.
41=34+5+2 -> 10001010
46=34+8+3+1 -> 10010101
хз наверное поможет
<em>1)</em> Program p1;
Uses crt;
Var A: array [1..9] of integer;
i: integer;
Begin clrscr;
for i:=1 to 9 do
begin
case i of
1,4,7: a[i]:= random (99-10+1)+10;
2,5,8: (random (999-100+1)+100) div i;
3,6,9: (random (99-10+1)+10) mod 10;
end;
write (a[i],' ');
end;
readln;
readkey;
end.<em>
</em>2)<em> </em>Program p2;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
Writeln ('Введите первые 2 элемента массива');
Read (a[1],a[2]);
for i:=3 to 15 do
begin
a[i]:=(a[i-1]-a[i-2])+i;
write (a[i],' ');
end;
readln;
readkey;
end.