Program spos; uses crt; var numb:array [1..100] of byte; // для последовательности чисел i,f:integer; //счетчик и переменная в качестве флага begin randomize; f:=0; for i:=1 to 100 do numb[i]:=random(101);// задает последовательность
for i:=1 to 100 do begin write(',',numb[i]); // вывод на экран последовательность(можно удалить) if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0 end; if f=0 then writeln('Yes') else writeln('No');
end.
program spos; uses crt; var numb:array [1..100] of byte; // для последовательности чисел i,f:integer; //счетчик и переменная в качестве флага begin randomize; f:=0; for i:=1 to 100 do begin numb[i]:=random(101);// задает последовательность write(' ',numb[i]);//вывод на экран, можно удалить end; writeln; i:=0; repeat i:=i+1; if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0 until i<100; if f=0 then writeln('Yes') else writeln('No');
Не больше - значит, меньше или равно. Они все сказали правду. Среди них 0 брехунов, а это не больше 1, не больше 2, не больше 3 и не больше 4. Причем тот, кто сказал "Не больше 4" - сказал правду, их же всего 4. Если среди них есть один брехун, то опять-таки все сказали правду. Потому что один - это не больше одного. Получаем противоречие. Если среди них два брехуна, то соврал только один: который сказал "Не больше одного". Опять противоречие. Если брехунов трое, то соврали только двое, которые сказали "Не больше 1" и "Не больше 2".
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку