Program n1; const n=6; var a: array [1..n] of integer; i: integer; begin for i:=1 to n do begin readln(a[i]); if a[i]<0 then a[i]:=a[i]*5; end; for i:=1 to n do writeln(a[i]); end.
1+1=10 (ноль пишем, 1 - переходит в старший разряд) Вообще все можно представить так - 1-самая старшая цифра в двоичной с.с. (В десятичной - это 9. При прибавлении в десятичной с.с. к 9 мы получаем 10, так происходит во всех с.с. Только в двоичной самая старшая 1 и, при прибавлении к ней 1 мы получаем также 10) 101011 +101010 1010101 Аналогично при вычитании. Представим число в десятичной с.с, например,1000. Если из него нужно вычесть 1, то мы заберем нужный нам разряд у 1. Тогда последний 0 превратится в 10, а все остальные 0 в 1. 11101 - 1111 1110 Ну, а умножение - это тот же процесс сложения. 10110 1111 10110 + 10110 10110 10110 101001010
Исходная цепочка ЛОМ 1-й шаг ЛОМ 2-й шаг ЛОММОЛ 3-й шаг ЛОММОЛН 4-й шаг ЛОММОЛН 5-й шаг ЛОММОЛННЛОММОЛ 6-й шаг ЛОММОЛННЛОММОЛО Результат ЛОММОЛННЛОММОЛО Количество букв «О» 5
4.
Исходная цепочка КОЛ 1-й шаг Л 2-й шаг ЛЛО 3-й шаг ЛЛОК Результат ЛЛОК
5.
Номер строки Строка 1 1 2 21 3 312 4 4213 5 53124 6 642135 .............. 9-я строка будет оканчиваться на четные цифры от 8 вниз 2468
const n=6;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then a[i]:=a[i]*5;
end;
for i:=1 to n do writeln(a[i]);
end.