//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(10).Where(x->x>0).Sum());
end.
<span> 1)зрительная,тоесть когда мы что-то читаем.2)Слуховая,когда мы слышим информацию3)Обанятельная4)осязательная.</span>
Var i: Integer; n: String;
Begin
readln(n);
for i := 1 to length(n) do
if n[i] = ',' then n[i] := '.';
writeln(n);
End.
1.
<span>Нажать ctrl+H и в строчке "что" написать )
а в строчне "Заменить на" )_ - _это пробел
или скобка это ", тогда этот символ</span>
2.
Грамматические и Орфографические, Пунктуация.
<span>Нажмите кнопку Microsoft Office, а затем выберите
элемент Параметры Word.
Щелкните пункт Правописание.
Нажмите кнопку Параметры автозамены.
На вкладке Автозамена установите флажок Автоматически исправлять
орфографические ошибки.</span>
4.
<span>Чтобы быстро убрать все лишние пробелы и
табуляторы в началах и концах строк, выделите весь текст, задайте
выравнивание по центру – пробелы будут удалены. После этого задайте нужное
выравнивание, например по ширине. Выберите меню Правка | Заменить… В
поле «Найти» введите пробел (нажмите на пробел). Нажмите кнопку «Больше», чтобы
раскрыть диалог. Нажмите кнопку «Специальный» и появившемся меню выберите Знак
абзаца. В поле «Найти» добавится текст «^p».
В поле «Заменить на» вставьте один знак абзаца «^p».
Нажмите кнопку «Заменить всё»</span>
Как-то так наверное,не уверена
Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)
Вот прога на паскале:
program sym
var p:array[1..12] of integer;
s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
p[i]:=i*i; //если нет уже готового массива
For i:=1 to 12 do
s:=s+p[i];
write(s)
end.
Ну тут кстати массив излишен, если надо просто найти сумму:
program sym1
var s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
s:=s+i*i;
write(s)
end.
Я у себя не проверял, но должно работать)