1. Загадай три випадкові числа від 1 до 6, що познача- тимуть номер об'єкта в першому, другому і третьому стовпчику. Склади речення з назвами цих об'єктів та за ПИШИ.
Фамилия брюнета Ивана - Антонов, Борисов, Глебов или Дмитриев. Но Антонов и Глебов не женаты, а Иван женат на сестре жены Дмитриева. Поэтому Иван имеет фамилию Борисов.
Егоров блондин, то есть его имя - Борис, Дмитрий, Антон или Глеб. Но так как человек, фамилия которого совпадает с именем Егорова, женат, то имена Антон и Глеб исключаются. Кроме того, теперь можно исключить и имя Борис: в этом случае из условия следовало бы, что имя Борисова - Егор, а мы уже выяснили, что его зовут Иван. Методом исключения получаем, что имя Егорова - Дмитрий. Следовательно, фамилия Бориса совпадает с именем Дмитриева. Отсюда, кстати, следует, что Борис - не Иванов.
Поэтому для блондина Иванова остаются только два имени - Антон или Глеб. Но Глеб отпадает по условию (его фамилия не Иванов, а лишь совпадает с именем Иванова). Значит, Иванова зовут Антон. Тогда Глеб имеет фамилию Антонов. Соответственно, неженатый Егор - Глебов. Остались только Василий и Борис, фамилии которых - Васильев и Дмитриев. Ясно, что фамилия Бориса - Васильев, а Василия - Дмитриев.
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');
Егоров блондин, то есть его имя - Борис, Дмитрий, Антон или Глеб. Но так как человек, фамилия которого совпадает с именем Егорова, женат,
то имена Антон и Глеб исключаются. Кроме того, теперь
можно исключить и имя Борис: в этом случае из условия следовало бы, что имя Борисова - Егор, а мы уже выяснили, что его зовут Иван.
Методом исключения получаем, что имя Егорова - Дмитрий.
Следовательно, фамилия Бориса совпадает с именем Дмитриева.
Отсюда, кстати, следует, что Борис - не Иванов.
Поэтому для блондина Иванова остаются только два имени - Антон или Глеб. Но Глеб отпадает по условию (его фамилия не Иванов, а лишь совпадает с именем Иванова). Значит, Иванова зовут Антон. Тогда Глеб
имеет фамилию Антонов. Соответственно, неженатый Егор - Глебов.
Остались только Василий и Борис, фамилии которых - Васильев и Дмитриев. Ясно, что фамилия Бориса - Васильев, а Василия - Дмитриев.
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');
end.