1. по ячейке кликните правой кнопкой - формат ячеек - вкладка выравнивание - поставить галочку возле переносить по словам - ок
2. по ячейке кликните правой кнопкой - формат ячеек - вкладка выравнивание - по горизонтали (нажимаете на стрелочку) и выбираете, также по вертикали нажимаете на стрелочку и выбираете - ок
3. тут смотря какой микрософт стоит:
- можно начать на диаграмму правой кнопкой и формат области диаграммы и выбрать подписи данных - ок
Без соблюдений стандартов размера элементов, т.е. от руки, но в общем-то она такая, эта блок-схема.
Var S,i:integer;
Begin
S:=0;
For i:= 21 to 81 do
if ((i div 10) mod 2 = 0 )and(i mod 10 = 1) then S:=S+i*i*i;
Write('S = ',S);
End.
Шмель это как пчела только пчела собирает пэльцу а шмель нет
ставь спосбо
Const
K = 5;
Var
A:array[1..K] of integer;
i:integer;
Begin
Write('Массив нечётных чисел: ');
For i:= 1 to K do
Begin
A[i]:=i*2-1;
Write(A[i],' ')
End
End.