1
использовать Робот
алг
нач
цел а,с
нц для с от 1 до 3
  нц для а от 1 до 5
  закрасить
  вправо
  кц
  нц для а от 1 до 5
  влево
  кц
  нц для а от 1 до 5
  закрасить
  вниз
  кц
  нц для а от 1 до 5
  вверх
  кц
  вправо
  вниз
кц
кон
<span>
2
использовать Робот
алг
нач
цел а,с
нц для с от 1 до 3
  нц для а от 1 до 5
  закрасить
  вправо
  кц
  нц для а от 1 до 5
  влево
  кц
  нц для а от 1 до 5
  закрасить
  вниз
  кц
  нц для а от 1 до 5
  вверх
  кц
  вправо
  вправо
  вниз
  кц
кон<span>
</span></span>

0 0

4 года назад

Составьте программу, которая формирует массив, содержащий 12 случайных вещественных чисел от -1 до 3, и подсчитывает произведени

berkyt55

<h2>PascalABC.NET 3.4.2, сборка 1978 (12.02.2019) </h2>

program task31143948;
const
N = 12;
var
arr: array[1..N] of real;
Sum: real;
begin
Sum := 1;
for var i := 1 to N do
begin
arr[i] := Random()*4 - 1;
Writeln(arr[i]:5:2);
if arr[i] < 0 then
Sum := Sum * arr[i]
end;
if Sum = 1 then
Write('ПРОИЗВЕДЕНИЕ = 0')
else
Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
end.

0 0

3 года назад

Средняя скорость передачи данных по некоторому каналу связи равна 30 Кбит\с. Определите, сколько понадобится секунд, чтобы перед

fghhh1

80*128*8=81920 бит=10 Кбайт
30/10=3 с
Ответ: 3 с

0 0

4 года назад