Если везде неверные таблички, значит в первой зебра. Волк не может быть в первой, значит он во второй. И для пони остаётся третья клетка.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, отрицательных: ЦЕЛ;
УКАЗ
N := Приём.Число();
СОЗДАТЬ(массив, N);
отрицательных := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 20)) - 10;
ЕСЛИ массив[сч] < 0 ТО УВЕЛИЧИТЬ(отрицательных) КОН
КОН;
Вывод.ЧЦел("^%d", отрицательных, 0, 0, 0)
КОН Задание.
Uses crt;
var r: array [1..10] of integer;
nev, n, min,i, zap:integer;
begin
clrscr;
write('Введите возраст невесты: '); readln(nev);
write('Введите число женихов: '); readln(n);
if n<2 then
for i:=1 to n do
begin
write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
end;
i:=0; zap:=0;
while (zap=0) and (i<=n) do begin
i:=i+1;
min:=nev-r[i];
if min>0 then zap:=i;
end;
if i<>n then
begin
for i:=zap to n do
begin
if min>(nev-r[i]) then
begin
zap:=i;
min:=nev-r[i];
end;
end;
writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
writeln ('По счету это ',i,'-ый жених');
end
else writeln('Среди женихов нет подходящего для нашей невесты.');
end;
else writeln('Число женихов должно быть более 2!');
end.
<span>12 10 – 5 7 + * 7 – 2 * =
</span><span>2 5 7 + * 7 – 2 * =
</span>2 12 * 7 – 2 * =
24 7 -2 * =
17 2 * =
34
700*1024*8/16/32000=11,2 сек
6300*1024*8/16/32000=100сек