1)<span>90Мбайт : 1.44Мбайт= 62.5=63 дискеты
4)</span>N1=32k1=200N2=16K2=250 1) 2)2i=N 2i=162i=32 2^4=162^5=32 i = 4i=5 200*5=1000 бит 4*250 = 1000 <span>ОТВЕТ: Тексты содержат одинаковое количество информации.
Постарайся понять)</span>
В номерах не понятно где робот изначально находиться!
в 1 номере я поставил нач.точку робота в самый первый закрашенный правый квадрат, во 2 номере в самый низ,в квадрат где заканчивается палка)
1 номер:
использовать Робот
алг
нач
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока справа не свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока справа не свободно
закрасить
вниз
кц
кон
2 номер:
использовать Робот
алг
нач
нц пока сверху свободно
вверх
закрасить
кц
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока сверху не свободно
закрасить
вправо
кц
вверх
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
кон
остальное сам делай,мне лень)
program numbers;
var x, y: integer;
begin
writeln('Введите число.');
read(x);
if (x mod 10)=(x div 10) then write('Цифры одинаковые') else write('Цифры разные');
end.
Var d,s:real; i:integer;
begin
d:=20; s:=d;
for i:=2 to 7 do
begin
d:=d+2;
s:=s+d;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 182</span>
Program arr;
var
a: array[1..15] of integer;
count,count_odd,num,sum,mult: integer;
begin
count := 1;
count_odd := 1;
num := 3;
sum := 0;
mult := 1;
while count <= 15 do
begin
a[count] := num;
count := count + 1;
num := num + 3;
end;
while count_odd <= 15 do
begin
sum := sum + a[count_odd];
mult := mult * a[count_odd];
count_odd := count_odd + 2;
end;
writeln('Массив из 15 элементов: 3, 6, 9, ..., 45');
writeln('Сумма элементов с нечетными индексами: ', sum);
writeln('Произведение элементов с нечетными индексами: ', mult);
end.
