Ответ:
Объяснение:Смотря какое условие. Нужно по условию редактировать поле, потом сделать так чтобы этот робот не разбился. Используя НЦ КЦ. И т.п
Первая задача (проверил, вроде работает, константа N - количество чисел в последовательности):
const N = 10;
var number, count, i : integer;
begin
count := 1;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number mod 3 = 0) and (number <> 0) then
count := count * number;
end;
if (count = 1) then
count := 0;
writeln('Result: ',count);
readln;
end.
Вторая задача (проверил, работает, но мог недопонять условие):
const N = 10;
var number, positive, negative, i : integer;
begin
negative := 1; positive := 0;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number > 0) then
positive := positive + number;
if (number < 0) then
negative := negative * number;
end;
writeln('Positive sum: ',positive);
writeln('Negative mul: ',negative);
if (positive > negative) then
writeln('Sum of positive numbers bigger than mul of negative numbers.')
else if (positive < negative) then
writeln('Sum of positive numbers lesser than mul of negative numbers.')
else
writeln('Sum of positive numbers and mul of negative numbers are equal.');
readln;
end.
Третья задача (проверил, работает):
const N = 10;
var number, lastneg, prevneg, i : integer;
begin
lastneg := 100; prevneg := 100;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number < 0) then
if (lastneg > 0) then
lastneg := number
else
begin
prevneg := lastneg;
lastneg := number;
end;
end;
if (prevneg > 0) then
writeln('This sequence of numbers contains less than two negative numbers.')
else
writeln('Penultimate negative number: ',prevneg);
readln;
end.
1 символ - 5 бит. 145 символов - 725 бит
Переводим а и b в шестиричную: а = <span>15014 (6), b =</span><span>20 (6).
Находим значение выражения: (a+b) + a * b - (a - b) = (15014 + 20) + 15014*20 - (15014-20) =15034 + 300280 - 14994 =300320 (6)
Переводим в тринадцатиричную: </span><span><span>a899 (13)</span></span>