Всоревнованиях по шахматам в 5 первых мест турнирной таблицы занимают женя,виктор, сережа, толя, никита. друзья участников сделали следующие предположения об итогах турнира: 1. выиграет женя, а виктор займет четвертое место. 2. сережа займет второе место, а виктор будет четвертым. 3. второе место займет сережа, а женя будет третьим. 4. победит толя, а никита будет четвертым. 5. толя будет последним, а никита - третьим. когда подвели итоги соревнований, оказалось, что каждый из друзей оказался прав только в одном из своих утверждений. найдите распределение мест, если известно, что не было разделения мест между участниками. в ответе перечислите подряд без пробелов первые буквы имен участников в порядке занятых ими мест.

👇

Увидеть ответ

Ответ:

dilovardustiev1

09.06.2021

Женя1
сережа2
виктор3
никита 4
толя5

4,5(57 оценок)

Открыть все ответы

Ответ:

vevvrqc

09.06.2021

На мою думку, роботи ніколи повністю не замінять людей. Людина створює цих роботів, значить людство завжди розумніше за них. Питання тільки в одному, чи зможуть роботи замінити людські руки, хоча б десь. Думаю що так, зможуть. Взяти хоча б наприклад інтернет ресурси, багато вчених вже давно прогнозували, що через декілька десятків років, зовсім зникнуть такі професії як: вчитель, касир, юрист, поліцейські. Навіть зараз по трохи роботи починають витісняти людей. Наприклад в Естонії вже існують каси без касирів, де люди самі можуть оплатити покупки. Це насправді дуже добре, так вони позбулися шахрайства і обману, а можливо просто неакуратності й розсіяності касирів людей, які інколи рахують неправильно. Також зовсім недавно показували першого робота поліцейського, який справляється не гірше людини, та навіть згадати розробку українців, так звана робот Софія. Отже, все ж таки роботи можуть замінити людей, це добре 50/50, оскільки так людям не буде на чому заробляти, але також це добре, адже робот виконує роботу акуратно та якісно

4,5(69 оценок)

Ответ:

Forsenboy

09.06.2021

ответ: 1909

Var
s : String;
n : Integer;
Function IncS(a : String) : String;
Begin
a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
If a[Length(a)]>'D' then
    IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
Check:=False;
If (Pos('A',a)>0) then
Begin
    Delete(a,Pos('A',a),1);
    If (Pos('A',a)>0) then Check:=True;
end;
end;
Begin
s:=''; n:=0;
While s<>'' do
Begin
{ Writeln(s); }
    If Check(s) then Inc(n);
    s:=IncS(s);
end;
Writeln(n);
end.

4,4(74 оценок)

Это интересно:

Стиль-и-уход-за-собой

23.02.2022

Как ухаживать за вьющимися от природы волосами...

Компьютеры-и-электроника

06.05.2020

Как перевернуть дисплей компьютера вверх ногами: детальное руководство...

Компьютеры-и-электроника

20.07.2021

Как легко воспроизводить файлы WMV на Ubuntu?...

10.10.2021