Program z1;Var Sum, a, i:integer;BeginSum:=0;5for i:=1 to 10 do begin read(a); if (a>=5) then Sum:=Sum+a; end;writeln(Sum);end.
104−(103)+102−(101)+…+2−(1) <span>= 52
Максимальное число получится при перестановке максимального значения после знака "-" и минимального значения после знака "+":
</span><span>104−(2)+102−(101)+…+103−(1) </span> = 52+2*103-2*2 = 254
Правое верхнее - 8
правое нижнее - 19
слева обе картинки одинаковые, но не видно значения Dat[10]
если оно меньше или равно 12 то ответ для этих заданий 6, если строго больше 12 то ответ 7
Начало
повтори 4 раза
пока справа стена
повтори шаг вперед
конец цикла
закрась клетку
поверни напрво 90
конец
Текст, таблицы и рисунки (но это уже исходя из типа документа).