а)
задаем любому брату вопрос является ли сидящий рядом с ним человек его братом
если он ответил "да", то мы спросили брата говорящего правду
значит ему можно доверять и если спросив про дорогу он скажет, что она ведет к озеру, то нужно идти по ней, если кажет что не ведет, то выбираем другую дорогу
если в начле брат ответил "нет", то мы спросили брата говорящего неправду
значит его ответы следует интерпретированить наоборот и если спросив про дорогу он скажет, что она ведет к озеру, то нужно выбрать другую дорогу, если кажет что не ведет, то нужно идти по ней
б)
задаем любому брату вопрос является ли сидящий рядом с ним человек его братом
если он ответил "да", то мы спросили брата говорящего правду
значит брат, которому будет задан следующий вопрос врун
поэтому его ответы следует интерпретированить наоборот и если спросив про дорогу он скажет, что она ведет к озеру, то нужно выбрать другую дорогу, если кажет что не ведет, то нужно идти по ней
если брат ответил "нет", то мы спросили брата говорящего неправду
значит брат, которому будет задан следующий вопрос говорит правду
поэтому ему можно доверять и если спросив про дорогу он скажет, что она ведет к озеру, то нужно идти по ней, если кажет что не ведет, то выбираем другую дорогу
var
b:array[1..100] of integer;
i, count, n:integer;
begin
randomize;
write('n = '); readln(n);
for i := 1 to n do
begin
b[i] := random(51) - 25;
writeln('b[', i, '] = ', b[i]);
end;
writeln;
count := 0;
for i := 1 to n do
if b[i] >= 0 then
begin
writeln('b[', i, '] = ', b[i], ' >= 0');
inc(count);
end;
writeln('Count = ', count);
end.
// вторая программа
const
n = 20;
var
a:array[1..n] of integer;
i, k:integer;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(51);
write(a[i], ' ');
end;
writeln;
write('k = '); readln(k);
if (k > n) or (k < 1) then
begin
writeln('элемента с таким индексом нет');
readln;
Exit;
end;
for i := k to n - 1 do
a[i] := a[i + 1];
a[n] := 0;
writeln('Измененный массив:');
for i := 1 to n - 1 do
write(a[i], ' ');
readln;
writeln;
end.
i:integer;
begin
for i:=1 to 20 do begin
d:=i;
s:=2.5*d;
write(d:6:2);
write(s:6:2);
writeln();
end;
end.