1. использовать Робот
алг нач
нц 3 раз
вверх
вправо
вверх
влево
кц
кон
2. использовать Робот
алг
нач
нц 3 раз
вправо
вниз
вправо
вверх
кц
кон
на Pascal
program noname;
uses crt;
const
t=10;
var
a:array[1..t] of byte;
i,k:byte;
x,n:integer;
r:real;
begin
clrscr;
randomize;
x:=1; k:=0; n:=0;
for i:=1 to t do begin
a[i]:=random(20-1+1)+1;
if (a[i] mod 2=0) then x:=x*a[i]
else begin n:=n+a[i]; k:=k+1; end;
writeln ('a[',i,']=',a[i]);
end;
r:=n/k;
writeln ('произведение элементов с четным значением=', x);
writeln('ср.арифм. элементов с нечетным значением=',r);
end.
Твой пример=0*2+1*2+0*2+1*2+0*2+1*2=0+2+0+8+0+32=42(10)
ответ точно правильный у меня 5)
Сначала нужно определить размер файла, который был передан,
для этого 32768 умножаем на 15, итого 491520 бит.
На одной странице выходит 48х8=384 бита информации.
Делим 491520 на 384, получаем 1280 страниц текста
var
k: array [1..12] of <em>double</em>;
i: <em>byte</em>;
begin
for i := 1 to 12 do
begin
write('Enter the ', (new System.DateTime(1, i, 1)).toString('m').Replace('1', ''), 'temperature: ');
readln(k[i]);
end;
writeln('1) ', (k[12] + k[1] + k[2]) / 3);
writeln('2) ', (k[3] + k[4] + k[5]) / 3);
writeln('3) ', (k[6] + k[7] + k[8]) / 3);
writeln('4) ', (k[9] + k[10] + k[11]) / 3);
<span>end.</span>