Var a:array[1..8] of integer;i:integer;beginrandomize;for i:=1 to 8 do begin a[i]:=random(20-10) + 10; write(a[i],' '); end; writeln;for i:=1 to 8 do begin if (a[i] < 15 ) then a[i]:=2*a[i]; write(a[i],' '); end;
<span>end.</span>
Напиши свое ФИО, подсчитай количество букв + 2 пробела = сумма * 16 бит (или на 2 байта) результат готов!
В ячейку B3 ввести формулу =($A3*10+B$2)^2 дальше ее скопировать
Предварительно подготовив Столбец А и строку 3
В примере все уже сделано
В строке формул можно увидеть саму формулу
Это видеофайлы.
Знаю как компьютерный червяк. ;-)